Thread abbrechen

[xZise]

Okay... ich habe das jetzt folgenermaßen umprogrammiert:

Delphi-Quellcode:

procedure TMiamiLabelMoving.DrawLoop;
begin
  {...}

 
  if not FActive then
  begin
    if FKill then
    begin
      FKill := false;
      FActive := false;
    end;
    Suspend;
  end;
end;

procedure TMiamiLabel.SetActive(const Value: Boolean);
begin
  FActive := Value;
  MovingThread.FActive := Value;
  if (Value) and (MovingThread.Suspended) then
    MovingThread.Resume;
end;

Aber er stoppt nicht mehr...