Verkürztes Label mit "..." am Satzende

[Berny]

Delphi-Quellcode:

Procedure TForm1.LabelText(Var L:TLabel; S:String);
 Begin
  L.Hint := s;                                   // Kompletten  Text als Hint anzeigen
  If L.Canvas.TextWidth(s) > L.Width Then        // Ist der Text breiter als das Label ?
   Begin
     While L.Canvas.TextWidth(s+'...') > L.Width Do // Text kürzen bis er passt...
      Delete(s,Length(s),1);
     L.Caption := s+'...';       // Text + ...
   End
  Else
   L.Caption := s;
 End;

Aufruf für z.B. Label3

LabelText(Label3, 'Das ist der Text der evtl. gekürzt wird.');

mfg. Berny