MDI-Child mit ESC schließen

[BKempf]

Ich habe ein paar Fenster, die ohnehin einen "Close"-Button haben und auch per ESC geschlossen werden sollen.
Folgendes funktioniert wunderbar:

Delphi-Quellcode:

Button1.Cancel:=true;
...
procedure TForm.Button1Click(Sender:TObject);
begin
  Close;
end;

Notfalls koenntest du sie ja auf 1x1 Pixel Groesse ziehen und irgendwo ausserhalb des sichtbaren Teils der Form verstecken, z.B. mit Top:=-10 und Left:=-10 im Objectinspektor.