Fórum FormKeyDown - tecla de atalho #292651
22/08/2005
0
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
Curtir tópico
+ 0
Responder
Posts
22/08/2005
Rjun
Você definiu como TRUE a propriedade KeyPreview do Form?
Responder
Gostei + 0
22/08/2005
Janete
Você definiu como TRUE a propriedade KeyPreview do Form?
Não, eu fiz, acho q deu certo, obrigado
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)