Zunächst mal sollte man die Klasse
TThread benützen und sich damit das Leben einfacher machen.
(Also nicht direkt Threadfunktionen aus der Windows
API aufrufen)
Dann muss man sich alle Thread-Objekte in einer Liste (TObjectList) merken, denn sonst kann man die Threads nicht beenden.
Um einen Thread zu beenden ruft man einfach threadobject.Terminate auf.
Der Thread muss aber kooperieren, sonst läuft er einfach weiter.
Beispiel:
Delphi-Quellcode:
procedure TMyThread.Execute;
var i:Integer;
begin
for i := 1 to 1000000 do
begin
if Terminated then Exit; // <==
BerechneWas(i);
end;
end;
Wichtig ist die markierte Zeile - der Thread überprüft, ob er beendet wurde und falls ja verlässt er einfach die Excute-Methode.
Ein Thread A kann nicht einfach einen Thread B beenden, denn er hat keinerlei Information über B.
Es ist aber relativ einfach, dass ein Thread alle anderen Threads (einschliesslich sich selber) beendet.
Dazu muss es auf dem Formular eine Methode geben, die für alle Threadobjekte in der Liste die Terminate-Methode aufruft.
Der Aufruf muss "synchronisiert" werden:
Synchronize(meinForm.TerminateAllThreads);