terça-feira, 10 de novembro de 2009

Como interceptar as teclas de função no seu programa

{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('I pressed the F5 key');
end;

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

Nenhum comentário:

Postar um comentário