ShowModal mit Programmablauf und selbst schließen?

[SirThornberry]

Ich hab das Gefühl alle Antworten gehen an der Frage vorbei.
Hier geht es doch darum ein Formular Modal anzuzeigen und darauf etwas darzustellen.
Warum öffnet man ein Formular modal? In der Regel um zu vermeiden das auf anderen Formularen rumgeklickt wird etc. währen auf dem Modal geöffnetem Fenster etwas passiert.
Ein Form also einfach nur mit Show anzuzeigen, darauf etwas zu machen und dann mit Hide wieder auszublenden deckt nicht das ab was man durch das modale Anzeigen erreichen will.

@HJay: Tröste dich, ich verstehe auch nicht wie der gepostete Source von wm_close dein Problem lösen soll. Durch überschreiben des ShowModal bewirkt man ja auch nur das mein eine neue Methode mit gleichem Namen an der Stelle platziert. Aber wie das gewünschte Vorhaben zu erreichen ist geht daraus für mich nicht hervor.

[HJay]

SirThornberry: Danke, das beruhigt mich etwas. Du hast das Problem exakt richtig dargestellt. Ich vermute einfach, dass ich nur zu blöde bin und es dafür eine einfache Standardlösung geben muss, weil dieses Problem doch sehr oft auftreten muss.

Meine Datenbanzugriffe benötigen etliche Sekunden, teilweise gar Minuten. Beim ersten Mal kann der User auch nichts anderes sinnvolles machen, als eben abzuwarten, bis die Daten zur Verfügung stehen. Schade, aber ist eben so.

Ich möchte die TProgressForm modal öffnen, damit der User warten muss und nicht auf der TMainForm herumclickt, also genau wie Du gesagt hast.

Das Fenster soll also aufgehen, den Fortschritt anzeigen und sich dann selbstätig wieder schließen. Das Hauptformular wartet derzeit darauf und macht dann weiter.

Wenn ich auf die modale Eigenschaft verzichte, geht das ganze natürlich mit

Delphi-Quellcode:

FormProgress.Show;
FormProgress.DoTheDeed;

aber dann wird weder automatisch auf DoTheDeed gewartet noch die Vorteile der Modalität genutzt.

Hoffentlich gibt es eine geradlinige Lösung... es gibt doch viele Programme, die ein Statusfenster anzeigen, während sie irgendwas machen... muss doch gehen!

[HJay]

Minimaler Fortschrtt: Wenn ich OnShow leer lasse und die Rechenroutine in OnActivate ausführe, dann ist das Formular wenigstens schon zu sehen und stellt den Fortschritt richtig da.

Allerdings schließt es sich immer noch nicht von alleine. Sowohl Close als auch ModalResult := mrOK in OnActiviate werden ignoriert, es bleibt einfach offen.

OnActivate ist also immer noch zu früh, um eigentlichen Programmcode auszuführen. Man müsste den Code erst starten, sobald das Fenster selbst "fertig" ist.

[BUG]

Zitat von HJay:

OnActivate ist also immer noch zu früh, um eigentlichen Programmcode auszuführen. Man müsste den Code erst starten, sobald das Fenster selbst "fertig" ist.

dataspiders Code sieht so aus, als könnte er das leisten.

[alfold]

Hier liegt die Anwort eigentlich schon auf der Hand.

Du solltest die VCL auch nur dafür nutzen für was sie da ist. Zu Anzeige eines Fortschrittes. und in Deiner Form1 für das schliessen sorgen! Wenn Du schon Form2 über Form1 mit Showmodal aufrufst!

z.B.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form2.ProgressBar1.Position = 100 then form2.Close;
end;

und schon funktioniert alles

Gruss alfold

[WM_CLOSE]

OK das war mein Fehler, ich dachte man könnte das Laden (das was so lange dauert) im ShowModal machen.
Das mit dem OnIdle ist gar nicht schlecht.

[himitsu]

Nja, als Erstes sollte man sich mal im Klaren sein, wann "wirklich" welche s ereignis ausgelöst wird.

OnShow/OnHide wird jeweils aufgerufen, wenn die Sichtbarkeit geändert werden soll, also wird OnShow aufgerufen bevor die Form sichtbar wird.

> Ergebnis, selbst wenn du in OnShow das Hide aufrufst, wird dadurch nichts verändert, da es noch versteckt ist und danach wird dann die Form eingeblendet und bleibt natürlich sichtbar.




Hierfür könnte man jetzt OnActivate nutzen (aber nicht vergessen weitere Aufrufe zu blocken, da eine Form ja mehrmals "aktiviert" werden kann),
oder man schickt im OnShow eine eigene Message an seine Form (PostMessage), welche erfahrungsgemäß "standardmäßig" erst nach dem Anzeigen ankommt und reagiert dann dort. (außer jemand spielt mal wieder am Application.ProcessMessages rum)

[HJay]

Mir gefällt Franks Lösung mit Application.OnIdle jetzt sehr gut. Geradlinig und dennoch simpel.

Allerdings bleibt die Frage, ob man das auch irgendwie ebenso geradlinig auf Formular-Ebene hätte lösen können. Also eine Routine definieren, die nach allen anderen genannten Ereignissen dann aufgerufen wird.

Die Idee mit der Message an sich selbst ist auch nicht so schlecht, vorausgesetzt, die Reihenfolge der Messages bleibt streng erhalten und die neue Message kommt mit Sicherheit automatisch richtig nach der letzten der obengenannten Messages.

[himitsu]

Zitat:

Mir gefällt Franks Lösung mit Application.OnIdle jetzt sehr gut. Geradlinig und dennoch simpel.

OnIdle ist noch ungeeigneter, als irgendein anderes Ereignis der Form.

Man mißbraucht kein globales Ereignis für eine lokale Sache.

Gründe:
- Was passiert wohl, wenn OnIdle schon belegt ist?
- Was passiert wohl, wenn man die Form gleichzeitig zweimal anzeigt?
- ...

PS: PostMessage an die Form, mit einer eigenen/passenden MessageID entspricht etwa der gleichen Idee, muß daß dort das Ereignis durchweg innerhalb der Form verbleibt.

Es wird doch nicht umsonst immer wieder davor gewarnt, das globale Variablen/Ereignisse gefährlich sind,
wenn man sie lokal begrenzt nutzen will.

[dataspider]

Zitat von himitsu:

Hierfür könnte man jetzt OnActivate nutzen

OnActivate eignet sich IMHO genausowenig wie OnShow.

Frank