Form-Event global für alle Formulare überschreiben?

[günni0]

Ich bin mir fast sicher, dass das nicht möglich ist.
Trotzdem interessiert es mich, ob es vielleicht doch möglich ist.

Ist es in Delphi möglich in einer einzigen Unit ein Event reinzuschreiben, welches ein normales Formular-Event anderer Formulare überschreibt?

[haentschman]

Moin...
Was hast du denn konkret vor? Ich wette, daß es andere Lösungen gibt.

[günni0]

In einem anderen thread hat mich jemand davon überzeugt, Formulare dynamisch zu erzeugen.
Das setze ich aktuell um.

Ich möchte aber ungerne überall wo ich Show brauche das hier schreiben

Delphi-Quellcode:

 if not Assigned(formmxyz) then
  formmxyz := TFormXYZ.Create;

 formmxyz.Show;

In eine Prozedur packen ist auch schlecht denke ich.

[Der schöne Günther]

Dein allererster Schritt sollte sein nicht mehr TForm sondern deine eigene TGünniForm zu benutzen und von dieser abzuleiten. In der Klasse kannst du dann das ganze grundlegende Verhalten einbauen das jedem Formular gleich sein soll.

[günni0]

Das klingt kompliziert. Sowas habe ich noch nie gemacht und höre davon auch zum ersten mal.
Hättest du ein Minimalbeispiel für mich?

[himitsu]

entweder Ableiten
> Delphi Form ableiten

Wobei TFormXYZ doch bereits eine Ableitung ist.
Wenn es für alle TFormXYZ gelten soll, dann genau da drin das Event im Formdesigner deklarieren.



Für Alle, die du erstellst:

Delphi-Quellcode:

formmxyz := TFormXYZ.Create;
formmxyz.OnEinEvent := DeineMethode;

ODER wenn wirklich für "Alle", also nicht nur für eine einzige FormKlasse:
dann NEIN

ABER Delphi führt für alle Nachfahren von TForm/TCustomForm/TDataModule eine globale Liste, welche man durchlaufen könnte.
> Screen (VCL.Forms.TScreen.Forms)