Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

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

    Delphi
    by Berny, 17. Jan 2007
  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+'...'; //...