Thread abbrechen

[Apollonius]

Deine SetActive-Methode ist nicht ganz richtig. Du suspendest oder resumest, aber wenn der Thread vorher schon suspendet war, muss danach zweimal resume verwendet werden, genauso reicht einmal resume nicht aus, wenn zweimal suspendet war.
Schau dir mal die Eigenschaft suspended an.

Ist es Absicht, dass am Anfang von TMiamiLabel gleich zweimal suspended (wenn csDesigning in ComponentState) wird? Du createst ja suspended und setzt dann nochmal setActive.
Hoffe geholfen zu haben
Apollonius

[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...

[Apollonius]

So war das nicht gemeint.

Delphi-Quellcode:

procedure TMiamiLabel.SetActive(const Value: Boolean);
begin
  FActive := Value;
  MovingThread.FActive := Value;
  Movingthread.suspended:=value;
end;

[xZise]

Achso... Aber das wollte ich nicht ;) und zwar sollte er schon die Animation fertig gemacht haben und dann suspenden ;)