Hallo!
Ich glaube, es ist nicht nötig, dass ich meinen Quelltext poste, denn ich habe ihn einfach hier rauskopiert, und die entsprechenden Stellen geändert (Label.Name,Panel.Name,etc...); aber ich kann ihn ja trotzdem mal posten. Außerdem ist mir jetzt etwas aufgefallen: Der Text flimmert zwar, läuft aber nicht. Diese Entdeckung verdanke ich der Tatsache, dass ich die Eigenschaft 'DoubleBuffered' auf 'False' gesetzt habe.
Hier noch der Quelltext (von OnFormCreate):
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
begin
Play1.Enabled := False;
Pause1.Enabled := False;
Stop1.Enabled := False;
NextTrack.Enabled := False;
LastTrack.Enabled := False;
end;
TextTimer1.Enabled := True;
myLabel := TLabel.Create(SongPanel);
myLabel.Parent := SongPanel;
myLabel.Caption := 'Testtext';
myLabel.AutoSize := True;
myLabel.Left := (SongPanel.Width - myLabel.Width) div 2;
myLabel.Top := (SongPanel.Height - myLabel.Height) div 2;
end;
Und von 'TTimer':
Delphi-Quellcode:
begin
if myLabel.left = -myLabel.width then
myLabel.left := SongPanel.width
else myLabel.left := myLabel.Left -1;
end;
Gruss
DelphiUser7