Hallo DPler,
erst mal Glückwunsch zum 5. Geburtstag!!! Ich bin mal wieder auf den Trip meine Quellcodes zu verschönern. So ich habe folgendes anliegen. Immer wenn ich eine Formular (Form) habe, gebe ich dem User die Möglichkeit dieses Fenster mit der ESC-Taste zu schließen. Hat was mit Benutzerfreundlichkeit zu tun. Aber das ist eine andere Geschichte. Dadurch, dass ich diese Funktion bei jeder Form habe, habe ich natürlich in jeder
Unit die gleiche procedure. Ich würde es gerne schaffen, dass ich das nur einmal habe. Also eine procedure die alle Fenster im gesamten Programm mit der ESC-Taste schließen lässt. Wie kann ich das realisieren? Ich würde mir sehr viel arbeit sparen und die Programm währen um einiges übersichtlicher. Bezüglich anzahl der Methoden in einer klasse.
Hier nochmal ein bisschen Code wie ich das mit den Fenstern schließen mache. Leider habe ich diese Methode in jeder Klasse.
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if shift=[] then
begin
case key of
27 : Close;
end;
end;
end;
Vielen Dank schon mal im vorraus!
MFG Christian18