Hallo,
verschieb doch das Label mit der Maus.
- Label auf Panel legen
- Label.AutoSize auf True setzen
- Label.WordWrap auf false setzen
- Label.Left auf 0 setzen
in OnMouseDown:
Delphi-Quelltext
in OnMouseMove:
Delphi-Quelltext
1: 2:
| if ssLeft in Shift then Label.Left := Label.Left + x - Label.Tag; |
Aber das ist nicht gerade Windows-Standard, ich bin eher dafür bei Stringanzeigen den String einzukürzen:
z.B.
C:\Dokumente und Einstellungen\Default User\Lokale Einstellungen\Anwendungsdaten\Microsoft\Windows Media\9.0
C:\...\Lokale Einstellungen\Anwendungsdaten\Microsoft\Windows Media\9.0