Programm soll verschiedene TForms starten können

[hackie3of5]

Hi Leute!
Also, mein Programm ist bisher so aufgebaut, dass es eine Startform gibt - ein Wartebildschirm wird angezeigt, während alle Einstellungen usw. geladen werden - und dann soll von der Startform eine Entscheidung getroffen werden: Es soll eine von vielen TForms geladen werden. Die Frage ist jetzt, wie mach das so, dass nicht alle Formen im Arbeitsspeicher liegen(kenn mich da nicht so gut aus).

Bisher mach ich das mit EINER Form so, dass ich die Visible-Eigenschaft der Startform auf False, und die des eigentlichen Programmes auf True setze. Kann mir vorstellen, dass die Startform - die dann ja eigentlich nicht mehr gebraucht wird - sinnlos im Speicher liegt, wenn ich nur die Visible-Eigenschaft benutze. Kennt jemand DA ne bessere Lösung? Schließen kann ich die Startform nicht, weil diese als Hauptformular eingetragen ist und ich das gesamte Programm bei einem Close-Aufruf an die Form beende.

Sollte ich mich unklar ausgedrückt haben, entschuldige ich mich im Voraus.

Gruß

[mkinzler]

Du kannst ja die Forms zur Luafzeit instantiieren. Also die Erzeugung im Projekt deaktivirenen und innerhalb der Hauptform:

Delphi-Quellcode:

 OpenForm := TOpenForm.Create( self);
  OpenForm.Open;

[hackie3of5]

Und wie deaktiviere ich die Erschaffung der Forms vom Programm selbst?

Was für ein Befehl ist das : "OpenForm.Open;"? Meine Form will mir den nicht anzeigen?

Ich hab übrigens Delphi 5 prof.

[mkinzler]

Zitat von hackie3of5:

Und wie deaktiviere ich die Erschaffung der Forms vom Programm selbst?

In dem du entsprechenden Application.CreateForm( ...); aus der Projektdatei löscht oder auskommentierst.

Zitat:

Was für ein Befehl ist das : "OpenForm.Open;"? Meine Form will mir den nicht anzeigen?

Soory, müßte .Show heißen.

[oldmax]

Hi
Du kannst über Projekt -> Optionen -> Formulare die Forms in die Warteschleife schicken, die du nicht brauchst.
in deiner Ereignisroutine rufst du dann
fogendes auf:

Delphi-Quellcode:

Application.CreateForm(TForm_x,Form_x);
Form_x.Visible:=False;
Form_x.ShowModal;
Form_x.Free;

Funktioniert zumindest bei meinen Delphis 3 und 4 . Versuchs einfach, evtl. benutz die Hilfe. Gruß oldmax