ShowModal mit Programmablauf und selbst schließen?

[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:

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

Hier verträgt jemand keine Kritik...
Probier es aus. OnActivate ist nicht nur ungeeignet, es funktioniert in diesem Fall einfach nicht.
Man schließt ein Form nicht in den Ereignissen ...

Und ja, sollte man OnIdle auch anderswo verwenden, dann muss man sich über mögliche Konsequenzen im Klaren sein.

Frank

[alfold]

@ himitsu
Hab ich doch auch geschrieben
Nur nicht so schön formuliert



alfold

[Bummi]

vielleicht auch so, oder so ähnlich

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Form2 := TForm2.Create(nil);
  Form2.Show;
  Application.CreateForm(TForm1, Form1);

  Application.Run;
end.

_______________________________________


procedure TForm1.FormActivate(Sender: TObject);
begin
   EnableWindow(Handle, false);
   Form2.BringtoFront;
   Sleep(5000); // unsere ganze zu tuende Arbeit
   EnableWindow(Handle, true);
   onActivate := nil;  // oder das was später hier passieren soll
   Form2.Close;
end;