Ok ich habe jetzt mit hilfe von RealtimeMarquee einen kleinen erfolg.
Nur wenn ich das erste Item wieder ans Ende verschiebe springt der ganze Text ein wenig, was er nicht tun sollte.
Hat da jemand vielleicht eine Lösung?
Delphi-Quellcode:
var
NewItem: TMarqueeItem;
begin
if RealTimeMarquee1.VisibleCount<tempvisibleCount then
begin
RealTimeMarquee1.BeginUpdate;
NewItem:= TMarqueeItem.Create(RealTimeMarquee1.Items);
NewItem.Assign(RealTimeMarquee1.Items.Items[0]);
RealTimeMarquee1.Items.Delete(0);
RealTimeMarquee1.EndUpdate;
end;
tempvisibleCount:=RealTimeMarquee1.VisibleCount;
end;