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

Question

: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:

Maur�cio Santos · Answer

Ol�!!!Coloque a propriedade KeyPreview do form para true.[]�s...

Jubrovolski · Answer

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?...

Carandre · Answer

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.

Jubrovolski · Answer

Eu estava colocando o evento keypress n�o no keydownObrigado...

F�rum Como fazer meu formul�rio reconhecer F1 ... F12 #218143