Fórum Duvida II, A revolta do Cérebro! #188072

wakko_tux,

Coloque a propriedade Preview do formulário onde está o bitbtn como True.
No evento OnKeyDown do formulário codifique:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Case key of
vk_F4 : Bitbtn1Click(Self);
- - -
End;
End;

Obs: bitbtn1 é o nome (Name) que eu usei para o botão que dispara o evento de checar o cpf.
Outra opção que me ocorre é usar teclas aceleradoras (acrescentar ´ & ´ no início do Caption (não na ppd Name) do botão. (´ &ChecaCpf ´): a primeira letra C ficará sublinhada e o botão executará seu método pelo pressionamento das teclas Alt + C.
Procure, que deverá existir mais alternativas.
Se não ajudou, espero não ter atrapalhado. carlosrm

wakko_tux,
primeiro ajuste a propriedade ´KeyPreview´ do seu form para ´True´...
depois programe no evento ´OnKeyDown´ do form :

ou


T+