Pesquisa

Pesquisa personalizada

domingo, 25 de dezembro de 2011

Como interceptar as teclas de função em Delphi




Primeiro, coloque a propriedade KeyPreview do formulário como TRUE.
Depois, insira este código no evento OnKeyDown do formulário:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F5 then
showMessage('Foi pressionada a tecla F5');
end;

Você também pode usar as variáveis VK_F1 até VK_F12 referentes as outras
teclas de função.