sábado, 2 de maio de 2009

Dicas Delphi - Teclas de Função [F1, F2, F3...]

Mude a propriedade KeyPreview do Form para True

procedure Tform1.FormKeyDown(Sender:TObject; var Key: Word; Shift: TShifState);
begin
if key = vk_F1 Then
{comando desejado}
end;

Um comentário:

Anônimo disse...

Obrigado