Tastenabfrage

[Matze]

Zitat von dopeline:

also das funktioniert aber nicht:if key = VK_F1   then showmessage('F1 wurde gedrückt');

Komisch, bei mir schon:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_F1   then showmessage('F1 wurde gedrückt');
end;