Einzelnen Beitrag anzeigen

newuser01

Registriert seit: 30. Aug 2006
248 Beiträge
 
Delphi 7 Professional
 
#1

Laufschrift an Panelgröße anpassen

  Alt 27. Sep 2006, 17:13
Hallo

Ich erzeuge in einem Timer diese Laufschrift

Delphi-Quellcode:
sLaufText := lSong.Caption; //caption übergeben
sTmp := sLaufText[1]; //1.zeichen wird sich gemerkt
delete(sLaufText, 1, 1); //1.zeichen wird anschließend gelöscht
sLaufText := sLaufText + sTmp; //caption + gemerktes zeichen wird sLaufText übergeben
labelID3.Caption := sLaufText; //sLaufText wieder an caption übergeben
Nun ist aber das label auf einem Panel mit der größe Height := 97 und Width := 416 bei dem label selber ist AutoSize auf false und die größe des labels entspricht der große des Panels. Wenn jetzt aber das Label (lSong.Caption) zb: nur wenige Zeichen enthält und diese geringer in der gesamtlänge als das Panel insgesamt lang ist, dann fängt die Laufschrift ja nicht genau rechts am ende vom Panel an, sondern schon weiter links je nachdem wieviel Zeichen das Label übergeben wurden. Ich möchte aber erreichen das die Laufschrift immer rechts am ende vom Panel beginnt egal ob das label ein Wort enthält was vielleicht nur zwei Buchstaben (zeichen) besitzt. Wie könnte ich das realisieren ?
Gruß: Holger

[Hobby-Programmierer]
  Mit Zitat antworten Zitat