Hallo!
Ich programmiere mir gerade einen Lauftext, der von rechts nach links läuft; Dazu verwende ich eine TPanel-,eine TLabel-, und eine TTimer-Komponente; Folgende Source verwende ich, um das ganze umzusetzen:
Delphi-Quellcode:
procedure TForm1.TextTimer1Timer(Sender: TObject);
begin
if Label1.Left = 0 then begin
if Label1.Width = 0 then begin
label1.left := SongPanel.Width;
label1.Width := 145;
end else begin
label1.Width := label1.Width -1;
end;
end else begin
label1.Left := label1.Left -1;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Texttimer1.Interval := 10;
SongPanel.DoubleBuffered := True;
end;
Mein Problem: Sobald der Timer aktiviert ist, d.h. der Text in dem Label läuft zwar, aber er läuft über den Rand des Labels hinaus, bis an den Rand der Form. Dort bleibt er dann stehen;
Weiß vielleicht jemand eine Lösung;
Gruss
DelphiUser7