Thread hart beenden

[Yamato]

Hallo,

Folgendes Problem:
Eine laufende Berechnung soll durch einen Buttonklick beendet werden. Dazu wird bei mir mit

Delphi-Quellcode:

TerminateThread(CalcThread.Handle, 0);

der Berechnungs-Thread beendet. Das hat aber einige Nebenwirkungen: Es kann vorkommen, daß danach die Anwendung einfriert oder eine Exception auftritt. Wo liegt also das Problem und wie kann man es besser lösen? (Der Thread greift nur auf interne Daten zu, kann also problemlos beendet werden)

Zweites Problem:
Während der Berechnung soll der Mauszeiger in eine Sanduhr verwandelt werden (außer, falls sich der Zeiger über dem Abbruch-Button befindet). Dazu müßte ich aber bei jeder Komponente auf dem Formular die Cursor-Eigenschaft setzen - was viel zu kompliziert ist. Geht auch das schneller zu lösen?

Danke im Voraus

(Sorry, erst jetzt gesehen, daß ich im falschen Forum gepostet habe. Wie kann man das nachträglich ändern?)

[ste_ett]

Du könntest zwischen den einzelnen Schritten in der Execute-Prozedur deiner Thread-Klasse solche Abfragen einbauen:

Delphi-Quellcode:

// ...
  if (not Self.Terminated) then
  begin
//  Rechnen
  end;
//...

Damit würde an der Stelle abggebrochen, wenn du den Thread beendest.

Für das Beende reicht dann ein einfaches

Delphi-Quellcode:

  NameDerThreadklassen-Instanz.Terminate;

- edit -

Für das zweite Problem bitte einen extra Thread aufmachen.
Wenn man was über Forms und Cursor sucht, erwartet man sowas nicht in einem Thread mit dem Titel "Thread hart beenden". :)