Como fazer meu formulário reconhecer F1 ... F12

Delphi

04/03/2004

:roll:
Como faço para que meu formulário reconheça o pressionamento das teclas de funções.

Já tentei colocando o evento FormKeyPress ex:

procedure Tfrm_vendas.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #117 then
showmessage(´aqui´);
end;

Os códigos de F1 começa no 111 ( ascii )?

Obrigado :lol:


Jubrovolski

Jubrovolski

Curtidas 0

Respostas

Maurício Santos

Maurício Santos

04/03/2004

Olá!!!

Coloque a propriedade KeyPreview do form para true.



[]´s


GOSTEI 0
Jubrovolski

Jubrovolski

04/03/2004

já coloquei a propriedade keypreview para true mas não adiantou.
Quais os códigos das teclas de funções:

F1 = 111 ? E ASSIM POR DIANTE?


GOSTEI 0
Carandre

Carandre

04/03/2004

Caro amigo,

Tente o seguinte código, no evento OnKeyDown digite:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F5 then
ShowMessage(‘Você pressionou a F5&8217;);
end;
{ pode ser usado da VK_F1 a VK_F12 }

Avise mesmo que funcione.

Um grande abraço.


GOSTEI 0
Jubrovolski

Jubrovolski

04/03/2004

Eu estava colocando o evento keypress não no keydown

Obrigado


GOSTEI 0
POSTAR