Text zur Anzeige kürzen mit Punkten hinten

[Luckie]

Geht doch:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  Txt: String;
  Rct: TRect;
begin
  Txt := 'Dies ist ein Beispiel-Text.';
  GetWindowRect(Self.Handle, Rct);
  DrawText(Self.Canvas.Handle, PChar(Txt), Length(Txt), Rct, DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;

Mein Panel (D7) hat übrigens kein Canvas.