Código
procedure Tform1.FormKeyDown(Sender:TObject; var Key: Word; Shift: TShifState);
begin
if key = vk_F1 then begin
{ instrucoes a serem executadas }
end;
end; {Não se esqueça de colocar a propriedade 'KeyPreview' do formulário em 'True'.
Você também pode usar as variáveis VK_F1 até VK_F12 referentes as outras teclas de função. }
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009