Código
procedure Tform1.FormKeyDown(Sender:TObject;
var Key: Word; Shift: TShifState);
begin
if Key = vk_F3 Then
ShowMessage('Foi pressionada a tecla F3')
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009