Fehler bei Lauftext

[Christian S.]

Hallo!

Also, wie folgt funktioniert es bei mir (ganz genau, damit wir nicht von zwei unterschiedlichen Sachen reden):
1. ich packe ein Panel auf die Form
2. ich packe ein Label ins das Panel
3. ich packe einen Timer auf die Form
4. der Timer bekommt folgenden Code:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label1.left = -label1.width then
    label1.left := Panel1.width
  else label1.left := label1.Left -1;
end;

Fertig. Damit klappt es wunderbar.

MfG
Peter