Como chamar as teclas F1..F12 ?

Delphi

04/05/2008

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.


Badboysjc

Badboysjc

Curtidas 0

Respostas

Paulo

Paulo

04/05/2008

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.


GOSTEI 0
Mazzi

Mazzi

04/05/2008

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;


GOSTEI 0
POSTAR