sábado, 5 de setembro de 2009

Interceptando as teclas de função no seu programa

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if Key = VK_F5 then
showMessage('A Tecla F5 foi Pressionada');
end;

Nenhum comentário:

Postar um comentário