Verrückte Eventreihenfolge, wenn Fenster mit ShowModal geöffnet wurde

[freejay]

Ich habe mir schon gedacht, dass irgendwer ProcessMessages ankritteln wird...

Aber wie könnte man denn das "ich will einen laufenden Prozess über einen Cancel-Button abbrechen lassen können" sonst lösen?

Um die Benutzung eines Cancel-Buttons zu erlauben, muss ich doch ProcessMessage verwenden, oder? Auch wenn ich den Prozess in einen anderen Thread stecke, muss ich doch auf das Ende des Threads mit ProcessMessages warten?

Und sobald ProcessMessages ins Spiel kommt, kann man halt auch den CloseButton drücken. Nur verhält sich der dann recht eigenwillig...

[Wosi]

- Lager die langläufige Routine in einen Thread aus
- Halte eine Referenz auf den Thread (Wichtig ist hierbei, dass FreeOnTerminate nicht gesetzt ist)
- Wenn Abbrechen geklickt wird, rufst du Thread.Terminate auf
- In dem Thread prüfst du regelmäßig ob Terminated gesetzt wurde
- Beim Schließen des Fensters rufst du Thread.Free auf. Damit wartest du automatisch bis der Thread auch wirklich fertig ist

[freejay]

[/QUOTE]

Zitat von Wosi:

- Lager die langläufige Routine in einen Thread aus
- Halte eine Referenz auf den Thread (Wichtig ist hierbei, dass FreeOnTerminate nicht gesetzt ist)
- Wenn Abbrechen geklickt wird, rufst du Thread.Terminate auf
- In dem Thread prüfst du regelmäßig ob Terminated gesetzt wurde
- Beim Schließen des Fensters rufst du Thread.Free auf. Damit wartest du automatisch bis der Thread auch wirklich fertig ist

Ok, und wie prüfe ich jetzt im Formular, ob der Thread fertig ist?
Damit ich z.B. Buttons wieder enablen/disablen kann?
Da fällt mir nur ein TimerEvent (nicht sehr elegant) ein oder eine CallbackProzedur, die der Thread anstößt. Hm...

[Wosi]

http://docwiki.embarcadero.com/Libra...ad.OnTerminate

[freejay]

Zitat von Wosi:

http://docwiki.embarcadero.com/Libra...ad.OnTerminate

Jaaa, vielleicht sollte ich mir doch angewöhnen, sowas immer rein eventbasiert zu lösen. Und nicht mit lustigen "While ThreadNochLäuft ProcessMessages"-Schleifen...

[stahli]

Das ist eine Konstellation, auf die die VCL nicht direkt ausgelegt ist.

Schau mal, ob vielleicht OnCloseQuery vorher getriggert wird. Dann könntest Du dort ein Flag setzen und dies für einen vorzeitigen Abbruch der Schleife prüfen.
Ansonsten gibt es vielleicht eine Message, die man noch abfangen kann.
Aber so etwas kann dann auf späteren Delphi-Versionen oder auf verschiedenen Windows-Versionen und -Rechnern schon wieder ganz anders laufen.

Vielleicht kannst Du Dein SubFormular ja auch durch ein Panel ersetzen, das Du einfach in Dein Hauptformular einsetzt.


Grundsätzlich ist sicher sinnvoll, solche längeren Aufgaben in Threads auszulagern. Dazu muss man dann aber auch die konkreten Zuständigkeiten der einzelnen Formulare klären...
ProcessMessages ist immer mit Vorsicht zu genießen.

[freejay]

Zitat von stahli:

Das ist eine Konstellation, auf die die VCL nicht direkt ausgelegt ist.

Schau mal, ob vielleicht OnCloseQuery vorher getriggert wird. Dann könntest Du dort ein Flag setzen und dies für einen vorzeitigen Abbruch der Schleife prüfen.
Ansonsten gibt es vielleicht eine Message, die man noch abfangen kann.
Aber so etwas kann dann auf späteren Delphi-Versionen oder auf verschiedenen Windows-Versionen und -Rechnern schon wieder ganz anders laufen.

Vielleicht kannst Du Dein SubFormular ja auch durch ein Panel ersetzen, das Du einfach in Dein Hauptformular einsetzt.


Grundsätzlich ist sicher sinnvoll, solche längeren Aufgaben in Threads auszulagern. Dazu muss man dann aber auch die konkreten Zuständigkeiten der einzelnen Formulare klären...
ProcessMessages ist immer mit Vorsicht zu genießen.

Nee, OnCloseQuery verhält sich leider genauso - das hatte ich schon ausprobiert. Ich hab das Problem ja auch nur, weil ich das Fenster modal öffnen muss, sonst geht das mit OnClose und OnCloseQuery alles problemlos.

Natürlich ist ProcessMessages irgendwie etwas Getrickse, aber ich finde, dass man in vielen (einfacheren) Fällen damit sehr gut (und problemlos) arbeiten kann, ohne einen großen Overhead für eine andere Lösung basteln zu müssen. Aber in diesem Fall geht's wohl nicht...

[himitsu]

Zitat von freejay:

Aber wie könnte man denn das "ich will einen laufenden Prozess über einen Cancel-Button abbrechen lassen können" sonst lösen?

Genauso wie bei Threads? (Thread.Terminate und IF-Self.Terminated im Thread)

Deine Schleife muß eben auch auf die Beendigung ragieren.

Delphi-Quellcode:

while (SecondsBetween(Now,OldTime) < 10) and (ModalResult = mrNone) do 
  Application.ProcessMessages;

Und das gilt nicht nur für dein modales Fenster, sonden auch für die ganze Anwendung.

Delphi-Quellcode:

while (SecondsBetween(Now,OldTime) < 10) and (ModalResult = mrNone) and not Application.Terminated do 
  Application.ProcessMessages;

OnClose und OnCloseQuery werden im DoClose aufgerufen.
Buttons mit ModalResult und TForm.Close setzen eben nur den Status "Liebes Fenster, du darfst dich beenden", aber das wird eben nur/erst im ShowModal ausgewertet, wenn man ihm auch die Möglichkeit dazu gibt.

[hoika]

Hallo,
du kannst ein Fenster auch semimodal öffnen.
Nach aussen hin (für den Benutzer) ist es modal,
aber intern (für den Programmierer) wird es mit Show geöffnet
und man kann seine Berechnungen laufen lassen.

Und da es mit Show geöffnet wird, funktioniert z.B. auch ein Cancel-Button.

Delphi-Quellcode:

// Erzeugen
var
  WindowList : Pointer;

  Form:= TForm1.Create(nil);
  WindowList:= DisableTaskWindows(Form.Handle);
  Form.Show;
  Application.ProcessMessages;

// Freigeben
  Form.FCanClose := True;
  EnableTaskWindows(WindowList);
  Form.Free;

[himitsu]

Zitat von hoika:

du kannst ein Fenster auch semimodal öffnen.
...

Dann raucht aber sein Button-Code ab, denn das Hauptproblem ist, dass der sich nicht beendet, sobald das Fenster zu gehn soll.
Also ginge das Fenster wirklich zu und würde freigegeben.

Auch in deinem Code bleibt es dann in dem ProcessMessages (nach Show) hängen, bis der Button fertig ist.
und da fehlt auch noch eine Schleife um das ProcessMessages, denn sonst rauscht es sofort bis zum Free durch (ShowModal wartet von selber) und die Form ist sofort wieder weg.

Selbst wenn das Fenster geschlossen/ausgeblendet wird, dann müsste danach dennoch bis zur Freigabe gewartet werden, bis der Button fertig ist (was in einem Thread nicht möglich ist ... klingt fast nach 'nem Deadlock).
Also ob sichtbar oder unsichtbar, gewartet werden muß immer, wenn seine Arbeitsschleife sich nicht beendet.