Globale Änderung an TForm

[Assertor]

Hallo DPler!

Ich suche eine Möglichkeit, die CreateParams, WMSyscommand und WMActivate global für alle TForms in einer Anwendung zu ersetzen. Ziel ist es, ohne Forms.pas Änderung verschiedene TForm Anpassungen per Unit einzubinden.

Damit möchte ich vermeiden, in jedem Form der Anwendung die Änderungen an CreateParams etc. zu erfassen, damit dies nicht vergessen wird.

Ich habe schon etwas in Richtung

Delphi-Quellcode:

  TMyCustomFormHelper = class helper for TForm bzw. TCustomForm
  protected
    procedure CreateParams(...); override;
    ...
  end;

versucht, aber dies geht ebenso wenig wie eine Neuzuweisung der TForm Classe im Sinne von:

Delphi-Quellcode:

  TmyCustomForm = class(TCustomForm);
  protected
    procedure CreateParams(...); override;
  end;

  TForm = class(TmyCustomForm);

An sich sollte die letzte Klassenzuweisung TForm doch klarmachen, daß es von TmyCustomForm abstammt, nicht von TCustomForm. Oder?

Gruß winkel79

[mkinzler]

Ich würde TmyCustomForm in der Objektablage ablegen und dann die Formulare von diesem ableiten.

[SirThornberry]

der zweite ansatz sollte funktionieren. wobei auch

Delphi-Quellcode:

TForm = TmyCustomForm;

genügen sollte anstelle von

Delphi-Quellcode:

TForm = class(TmyCustomForm);

denn du willst ja nicht nochmal von TMyCustomForm ableiten sondern einfach sagen das TForm dein TMyCustomForm ist.
Aber Classhelper musst du da nicht nutzen. und dann musst du überhall in deinen formular-units deine neue unit hinter der forms unit einbinden.

[Assertor]

Hallo,

danke für die Antworten! Das mit der Objektablage ist ein gangbarer Weg. Die Zuweisung TmyCustomForm = TForm geht auch, aber natürlich nur wenn diese in allen Units in der uses steht.

Ich werd nochmal etwas grübeln!

Gruß winkel79