ShowModal mit Programmablauf und selbst schließen?

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

[himitsu]

Kritik ... was ist das?

Mal im Ernst, es ging mir mehr darum daß man keine Globalen nutzen soll, als darum daß keiner auf mich hört.

Hier mal ein schönes und aktuelles Beispiel:
http://www.delphipraxis.net/158969-f...-aus-edit.html

Oder wie wäre es damit?
Schreib das mal ins OnCreate der Form oder in ein Button-Klick-Ereignis

Delphi-Quellcode:

if Assigned(Application.OnIdle) then  
  ShowMessage('huhu?');

So, wie du siehst, siehst du nichts (falls doch, dann bist du auf's nachfolgende Kleingedruckte gestoßen), aber nun zieh z.B. einmal auf irgendeine Form ein TApplicationEvents drauf
und was ist nun?
Genau, DU würdest bei Nutzung von dieser Komponente behindern, da du etwas überschreibst.
Und um das mal erwähnt zu haben ... diese Komponente wird versteckt in einigen anderen Delphikomponenten auch noch verwendet.


Manchmal geht es eben nicht um "Ehre", welche gekränkt sein könnte, sondern einfach nur um Erfahung.

[alfold]

@Bummi
es geht ihm nicht darum das er aus der Form1 die Form2 closen tut.
Form2.Schowmodal soll sich nach abarbeitung aller Aufgaben selbst schliessen!

Gruss alfold

[Bummi]

@alfold
ich meine eben dieses Verhalten lässt sich mit o.g. simulieren...Splash wird angezeigt, alles bleibt unbedienbar bis Form1 fertig ist, Splash wird ausgeblendet...

[WM_CLOSE]

wie wäre es, das splash mit setwindowpos "modal" zu machen?
showModal ist schließlich dazu gedacht mit der weiteren Ausführung zu warten, bis das form geschlossen wurde. dann wäre die ausführung des splash wieder asynchron.