Erstellungsreihenfolge Forms

[Eclipticon]

Guten Abend!

In einem Projekt verwende ich folgenden Code:

Code: Alles auswählen

begin
  Application.Title:='Bla';
  Application.Initialize;
  Application.CreateForm(TDebugForm, DebugForm);
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

DebugForm muss ich zwingend vor MainForm erzeugen, da TMainForm.FormCreate bereits Ressourcen von DebugForm verwendet. Das Problem ist nur ... damit wird DebugForm zum Hauptfenster, MainForm wird zwar erzeugt, ist aber per default nicht sichtbar.

Es ist sicher hinzubekommen, aber wie sieht in Euren Augen eine programmiertechnisch saubere Loesung aus?

Danke

[Eclipticon]

Zu allem Uebel ist natuerlich auch die Ausfuehrung des gesamten Programms an die erste erstellte Form geknuepft ...

[theo]

Was verstehst du unter "Ressourcen"?
Nimm die doch einfach auf's Hauptformular oder je nachdem in ein Datenmodul.
Oder lade sie nicht OnCreate sondern vllt. OnShow oder ....

[MAC]

darf ich dir etwas empfehlen.
OnCreate zu benutzen ist eigentlich eine recht komplizierte sache, denn das form1.oncreate kommt direkt, noch bevor die komponenten auf der form erstellt oder andere formen erstellt wurden sind.
Edit: Falsch, beim aufruf von OnShow ist die gesammt Form mit allen komponenten darauf erstellt. Aber noch nicht die Form2.

Verwende ein Timer- das mach ich schon seit 2 Jahren. Ein Timer , heißt der übersichts-halber "starter" , interval 1 Sekunde. Enabled True;
onTimer:

Code: Alles auswählen

starter.Enabled := False; // wird nur 1 einziges mal ausgeführt...
//...
//...
andererTimer1.Enabled := True;

Die anderen Timer werden erst danach enabled damit dieser wirklich als erstes kommt. Der Timer wird jetzt erst gestartet wenn alles erstellt ist. jede form und jede komponente darauf.

[Socke]

Man könnte auch einen Event-Handler fürs erste Anzeigen eines Formulars hinzufügen; muss man aber im Code tun.

[Eclipticon]

Was verstehst du unter "Ressourcen"?

Super, natuerlich voll reingefallen Ich war offensichtlich lang genug von Delphi, Lazarus etc. weg, dass ich ganz vergessen habe, dass "Ressourcen" eine ganz spezielle Bedeutung hat! Was ich meinte war: Ich muss bei der Erstellung meiner MainForm debug output speichern und das mache ich ueber Aufruf von Methoden von TDebugForm. Dazu muss es zu diesem Zeitpunkt aber natuerlich schon eine Instanz von TDebugForm geben ...

Der Hinweis mit OnShow ist aber gut ... da dieser Event beim Hauptfenster einer Applikation nur ein mal eintreten sollten (oder?!?), kann ich die Initialisierung ja dort hin verlagern und damit schon auf die fertig erzeugte Instanz von TDebugForm zugreifen ...

Merci

[Eclipticon]

Hi MAC,

OnCreate zu benutzen ist eigentlich eine recht komplizierte sache, denn das form1.oncreate kommt direkt, noch bevor die komponenten auf der form erstellt oder andere formen erstellt wurden sind.

jetzt bin ich ein wenig irritiert: Ich greife in TForm1.FormCreate haeufig auf Komponenten von TForm1 zu und hatte damit noch nie Probleme ... wie funktioniert das, wenn OnCreate vor der Erstellung der Komponenten ausgeloest wird?

[theo]

Der Hinweis mit OnShow ist aber gut ... da dieser Event beim Hauptfenster einer Applikation nur ein mal eintreten sollten (oder?!?),

Im Normalfall ja, es sei denn du machst ausdrücklich nochmal Form.Hide/Form.Show
Wenn du ganz sicher gehen willst kannst du noch ein Flag setzen beim ersten OnShow, damit der Code sicher nur einmal ausgeführt wird.

[Teekeks]

Tada!

Code: Alles auswählen

begin
  Application.Title:='Bla';
  Application.Initialize;
  DebugForm:=TDebugForm.Create;
  DebugForm.Show;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
  DebugForm.free;
end.

[m.fuchs]

Du könntest auch die Erzeugung des DebugForms aus der .lpr rauswerfen und das stattdessen als erstes im TMainForm.OnCreate erledigen.

mfg
Micha

[carli]

Wozu der ganze Aufwand? Die Erstellungsreihenfolge lässt sich ganz bequem in den Projekteinstellungen setzen

[MAC]

Hi MAC,

OnCreate zu benutzen ist eigentlich eine recht komplizierte sache, denn das form1.oncreate kommt direkt, noch bevor die komponenten auf der form erstellt oder andere formen erstellt wurden sind.

jetzt bin ich ein wenig irritiert: Ich greife in TForm1.FormCreate haeufig auf Komponenten von TForm1 zu und hatte damit noch nie Probleme ... wie funktioniert das, wenn OnCreate vor der Erstellung der Komponenten ausgeloest wird?

Upps , ich hab mich geirrt. Anscheined exsistiert beim aufruf, Form1 und alle daraufliegenden komponenten. Aber noch nicht die debug-form.
Beim aufruf des Timers ist alles vorhanden...


OnShow kann man verwenden, wenn du eine Form aber öffters zeigst und versteckst kann das kompliziert werden...

[Eclipticon]

Wozu der ganze Aufwand? Die Erstellungsreihenfolge lässt sich ganz bequem in den Projekteinstellungen setzen

Weil das lt. Projekteinstellungen zuerst erstellte Formular auch das Hauptformular ist ... und sobald man dieses schliesst, endet auch die Applikation. Bei einem Debug-Fenster nicht unbedingt ein erwuenschter Effekt ...

[Poelser]

In einem Delphi-Projekt habe ich die Reihenfolge so gelöst, dass ich als erstes ein DatenModul erstelle:

Code: Alles auswählen

Application.Initialize;
  Application.Title := 'blabla';
  Application.CreateForm(TDataModule1, DataModule1);
  if not Application.Terminated then
  begin
    Application.CreateForm(TMenuHauptauswahl, MenuHauptauswahl);
    Application.Run;
  end;

Dann kann im OnCreate des Datenmoduls ein Form erstellt und ggf. ausgeführt werden. Ich habe dort z.B. die Anmeldemaske untergebracht. Das müsste auch mit Lazarus so funktionieren.