Programm mit ESC Taste beenden

[dtrace]

Hallo zusammen,
wie kann ich mein Programm über die ESC Taste beenden lasse. Dabei soll es egal sein, welches Control den Focus hat!

dTrace

[SirThornberry]

du musst im OnKeyDown/OnKeyUp auf die Taste auswerten (Ascicode 27) und KeyPreview des Forms auf True setzen damit du die Tasten auch mitbekommst.

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ESCAPE then Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True;  // Damit unser Fenster zu erst den Tastendruck empfängt
end;

[SirThornberry]

Eine Anmerkung vielleicht noch. Man sollte sowas bevorzugt im OnKeyUp machen. Ansonsten bekommt man dann das OnKeyUp der Taste in dem Programm welches nach dem beenden den Focus hat. Wenn das andere Programm dann im OnKeyUp die Escape-Taste auswertet hat man durch die Betätigung der Escape-Taste gleich 2 Programme beendet.

[dtrace]

VIELEN DANK