keypress und window schliessen

[ringli]

Also ich mache dass immer so:

Delphi-Quellcode:

{*** Tastenkürzel vergeben ***}
procedure TProgramm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  {*** ESC beendet das Programm ***}
  if (Key = $1B) then CancelClick (Sender);
end;