Fehler bei Lauftext

[Christian S.]

Hallo!

Um erst einmal Deine Frage zu beantworten:
Ich habe das Label direkt in das Panel "hineingeklickt".

Wenn es gar nicht klappt, dann mach es folgendermaßen:
1. packe ein Panel mit Namen "Panel1" auf die Form (wenn es anders lautet, nachfolgenden Quelltext umschreiben).
2. verwende folgenden Code, um ein Label "myLabel" während der Laufzeit zu erzeugen, welches sich nur im Panel bewegt.

Delphi-Quellcode:

var
  Form1: TForm1;
  myLabel : TLabel;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  myLabel := TLabel.Create(Panel1);
  myLabel.Parent := Panel1;
  myLabel.Caption := 'Testtext';
  myLabel.AutoSize := True;
  myLabel.Left := (Panel1.Width - myLabel.Width) div 2;
  myLabel.Top := (Panel1.Height - myLabel.Height) div 2;
end;

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

Mit diesem Code (und Timer1 auf 10ms eingestellt), sollte es funktionieren. Zumindest hat es das bei mir.

MfG
Peter