Fórum Como chamar as teclas F1..F12 ? #357963
04/05/2008
0
Bom Dia !!
Gostaria de saber se alguem tem um exemplo simples de como usar em FORM para para chamar as teclas de F1 até F12 por exemplo, como tecla de atalho. E em qual evento eu coloco, na troca do TAB por ENTER por exemplo eu sei que coloca no evento KEYDOWN.
O que eu quero é por exemplo é acionar o botão GRAVAR através de por exemplo o F2, e assim vai.
Exemplo:
procedure TfrmClientes.dbeCPFKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
end;
Se alguem puder ajudar, através de um exemplo ficaria muito agradecido.
Obrigado.
Gostaria de saber se alguem tem um exemplo simples de como usar em FORM para para chamar as teclas de F1 até F12 por exemplo, como tecla de atalho. E em qual evento eu coloco, na troca do TAB por ENTER por exemplo eu sei que coloca no evento KEYDOWN.
O que eu quero é por exemplo é acionar o botão GRAVAR através de por exemplo o F2, e assim vai.
Exemplo:
procedure TfrmClientes.dbeCPFKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_RETURN then Perform(Wm_NextDlgCtl,0,0);
end;
Se alguem puder ajudar, através de um exemplo ficaria muito agradecido.
Obrigado.
Badboysjc
Curtir tópico
+ 0
Responder
Posts
04/05/2008
Paulo
Eu faço assim: Solto um componente TActionList no Form. Dou um duplo clique nele, e crio uma nova Action([b:21caae5a59]New Action(ins)[/b:21caae5a59]). Nessa nova Action, vou no evento OnExecute e escrevo: Btn_Salvar.Click;
Na propriedade ShortCut, eu seleciono F1..F12. Está pronto para usar.
Na propriedade ShortCut, eu seleciono F1..F12. Está pronto para usar.
Responder
Gostei + 0
05/05/2008
Mazzi
Boa a dica do Paulo...
[i:c601cf4154]eu uso assim: (EVENTO ONKEYDOWN do Objeto)[/i:c601cf4154]
procedure TfrmNotaEntrada.[b:c601cf4154]FormKeyDown[/b:c601cf4154](Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
[b:c601cf4154]if key = vk_f5 then[/b:c601cf4154]
begin
//.. SEU CODIGO AQUI ...//
frmLiberacaoLogin.novoValor :=´A´; //para abrir A de ABERTA
frmLiberacaoLogin.ShowModal;
//.. SEU CODIGO AQUI ...//
end;
end;
[i:c601cf4154]eu uso assim: (EVENTO ONKEYDOWN do Objeto)[/i:c601cf4154]
procedure TfrmNotaEntrada.[b:c601cf4154]FormKeyDown[/b:c601cf4154](Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
[b:c601cf4154]if key = vk_f5 then[/b:c601cf4154]
begin
//.. SEU CODIGO AQUI ...//
frmLiberacaoLogin.novoValor :=´A´; //para abrir A de ABERTA
frmLiberacaoLogin.ShowModal;
//.. SEU CODIGO AQUI ...//
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)