Tastenbelegung in zweitem Formular

[CapriVonSun]

Hallo zusammen!

mein Programm besteht aus zwei Formularen, die ich beide mit der Taste Esc (nacheinander) schließen möchte.
In meinem Hauptformular habe ich das schon hinbekommen mit:

Code: Alles auswählen

 
procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True;
end;
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char) ;
begin
   if key = #27 then Close;
end;  
 

Meine Versuche es genau so für mein zweites Formular (in der dazugehörigen Unit) zu machen, sind gescheitert. Dort wird auf den Befehl nicht reagiert.

Was mache ich falsch?

Dankeschön!!

[Michl]

Sehr merkwürdig... bei mir funktioniert das genau so... gerade getestet (auch mit Form2.keypreview=false)!

[Edit] habe mal das Minimalstbsp für dich angehangen!

[CapriVonSun]

Seltsam, ich weiß echt nicht, was ich vorher falsch gemacht habe, aber nach dem 195. Versuch hat es jetzt doch hingehauen.
Manchmal will mein Lazarus einfach nicht wie ich!

Vielen Dank für die Bemühungen!