FormKeyDown - tecla de atalho
Estou colocando no onkeydown do form, uma tecla de atalho para abrir outro form, só q se estiver por exemplo em um dbgrid não funciona, tem algum lugar onde posso colocar esse tipo de atalho q abra esse outro form de qualquer forma se q o cursor esteja nele?
procedure TFrmFrenteCaixa.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var WFrm_Clientes:TFrm_Clientes;
begin
Case Key Of
VK_RETURN, VK_DOWN: Perform(WM_NEXTDLGCTL,0,0);
VK_UP: Perform(WM_NEXTDLGCTL,1,0);
VK_F10: begin
WFrm_Clientes:=TFrm_Clientes.Create(Self);
If WFrm_Clientes.Showmodal=MROk Then
TBPedidosCodCliente.value:=Strtoint (WFrm_Clientes.LBL_Result.Caption);
WFrm_Clientes.Release;
end;
end;
end;
procedure TFrmFrenteCaixa.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var WFrm_Clientes:TFrm_Clientes;
begin
Case Key Of
VK_RETURN, VK_DOWN: Perform(WM_NEXTDLGCTL,0,0);
VK_UP: Perform(WM_NEXTDLGCTL,1,0);
VK_F10: begin
WFrm_Clientes:=TFrm_Clientes.Create(Self);
If WFrm_Clientes.Showmodal=MROk Then
TBPedidosCodCliente.value:=Strtoint (WFrm_Clientes.LBL_Result.Caption);
WFrm_Clientes.Release;
end;
end;
end;
Janete
Curtidas 0
Respostas
Rjun
22/08/2005
Você definiu como TRUE a propriedade KeyPreview do Form?
GOSTEI 0
Janete
22/08/2005
Você definiu como TRUE a propriedade KeyPreview do Form?
Não, eu fiz, acho q deu certo, obrigado
GOSTEI 0