Mehrere Forms (Öffnen und Schließen)

[Whistler]

Guten Morgen,

folgendes Problem:
Form1, genannt "Main", öffnet via Button Form2, genannt "Ueber". Im Code sieht das so aus:

Delphi-Quellcode:

procedure TMain.btHilfeClick(Sender: TObject);
begin
Ueber1 := TUeber.Create (Main);
ueber1.showmodal;
end;

Ich habe also die Variable "Ueber1" erstellt. In diese erstelle ich das Formular "Ueber", welches selbstverständlich unter "uses" bei Form "Main" eingetragen ist.
Wenn der User also auf den Buttun "btHilfe" klickt, soll sich das besagt Form "Ueber" öffnen und das Hauptprogramm ("Main") in der Zeit nicht anwählbar sein. Dies realisiere ich via "ShowModal".

Auf dem Formular "Ueber" ist ein Button "btClose" der bei Klick "Ueber.Close" ausführt. Wenn er das macht, crashed das Programm :)
Daher führe ich "Main.Ueber1.Close;" aus - habe allerdings auch "Main.Ueber1.Destroy" bzw. ".free" probiert. Das Formular "Ueber" schließt sich zwar, aber das Hauptformular wird nicht wieder aktiv - was es aber werden soll.

Hoffe das Problem wurde verstanden und jemand weiß Rat.

P.s.:
Wenn jmd. ein paar gute Tutorials zu "Delphi & mehrere Forms" kennt, wäre ich ihm dankbar!

[NicoDE]

ModalResult dürfte Dein Problem lösen.

[SirThornberry]

du musst das form "ueber" mit

Delphi-Quellcode:

modalresult := mrOK; ///oder irgend ein anderer Rückgabewert

schließen

[Whistler]

Leider nein.
"modalresult := mrOK" ignoriert er. In einer "if-Abfrage" prüfe ich eine Progressbar. Wenn hier die Position 100 erreicht ist, soll sich das Fenster schließen. Die Abfrage selbst funktioniert, dies habe ich Mittels "ShowMessage" getestet. Jedoch bei "Close;" bzw. "Ueber.Close;" kommt es zu einer Exception und "modalresult := mrOK" bzw. "modalresult := 1" ignoriert er.

Nachtrag:
Ich führe alles bei "OnCreate" aus. Dies scheint nicht zu gehen. Jmd. eine Idee wo ich es statt dessen ausführen kann (Fenst soll eigentlich nur angezeigt werden und autom. abgearbeitet werden und sich beenden - Timer?)?

[Leuselator]

schau mal dort - der von mir vorgeschlagene Weg sollte auch für Dein Problem passen...
Gruß

[Whistler]

Guten Morgen Leuselator,

interessant Idee. Werde ich mir heute Mittag mal genauer anschauen.
Aktuell lasse ich in Form2.Create einfach den Timer aktivieren und führe das Close dann dort aus - was funktioniert.

[Leuselator]

Timer sind immer Mist für soetwas - geht zwar, ist aber nicht sauber.
Gruß