jupp, kannst du ... einfach über tmythread.isrunning ,
wobei ich diese globale Variable noch in eine Klassenvariable umwandeln würde
Delphi-Quellcode:
type
tmythread = class(TThread)
private
{ Private-Deklarationen }
class var running: integer = 0;
protected
procedure Execute; override;
public
class function isrunning: boolean;
end;