Komponenten zur Laufzeit erzeugen - auf 4 Formularen mit 1 ?

[torf160]

Hallo, ich hoffe, ich habe mich mit meiner Frage für das richtige Forum entschieden.

Also:
Ich habe eine Anwendung mit 1 Haupt-Formular und 4 weiteren Formularen.
Auf den 4 weiteren Formularen möchte ich zur Laufzeit weitere Komponenten erzeugen.

Ich habe das jetzt so realisiert, dass für jedes Formular ein entsprechendes OnCreate-Ereignis vorhanden ist.
Das ist dann aber praktisch 4 x derselbe Code.

Geht das nicht irgendwie eleganter? So, dass ich mit nur 1 Routine die Komponenten auf allen 4 Formularen erzeugen kann?
Das wäre weniger Tipparbeit und Ändeerungen müsste ich nur noch an 1 Stelle durchführen.

Das ganze Formular an eine Prozedur zu übergeben ist mir nicht gelungen.

Vielen Dank schon mal, für Eure Müühe.

torf160

[SirThornberry]

Zitat:

Das ganze Formular an eine Prozedur zu übergeben ist mir nicht gelungen.

Da wäre Interessant wie du es versucht hast und was genau dabei schief gegangen ist denn im Grunde genommen ist die einfachste Variante genau diese.

Delphi-Quellcode:

procedure erstelle_komponenten_auf_form(AForm: TCustomForm);
begin
  // Komponenten erzeugen mit AForm als Parent und Owner
end;

[torf160]

Suuuper, so funktioniert es.

Ich bin nicht auf die Idee gekommen, die Prozedur aus dem Formular selbst aufzurufen, außerdem hatte ich noch ein "var" im Prozeduraufruf.

Also etwa so:

Delphi-Quellcode:

procedure erstelle_komponenten_auf_form(var Form2: TForm);
begin
  // Komponenten erzeugen
end;

Der Aufruf erfolgte dann aus Form1.

Vielen Dank für die schnelle Hilfe.

torf160

[himitsu]

Das VAR ist nicht nötig, da du ja den Inhalt von Form2 ändern willst und nicht die Form2-Instanz selber.

'ne andere Frage:
Wenn du auf 4 Forms die selben Komponenten hast, warum dann nicht nur eine Form 4-mal verwenden?

[Hansa]

Zitat von himitsu:

Wenn du auf 4 Forms die selben Komponenten hast, warum dann nicht nur eine Form 4-mal verwenden?

Das geht zumindest in die richtige Richtung. Er geht aber besser noch einen Schritt weiter und lässt 4 Forms eben 4 Forms sein und auch das Gefummele mit Parent,Owner etc. weg. Solche Geschichten macht man besser mit einem Musterformular. Dieses kriegt das richtige FormCreate und alles was gemeinsam sonst noch gebraucht wird. Farben, Schriftarten, bei Maus und Tastatur macht es auch keinen Sinn das überall anders zu handhaben. Von diesem Musterformular soll er sich dann die 4 anderen ableiten und fertig. Sollte es nötig werden irgendeine Eigenschaft in allen 4 oder später noch mehr Formularen zu ändern, dann muss lediglich dieses Musterformular geändert werden. Und er hätte es auch für andere Programme immer zur Verfügung.