Geht doch:
Delphi-Quellcode:
procedure TForm1.FormPaint(Sender: TObject);
var
Txt: String;
Rct: TRect;
begin
Txt := 'Dies ist ein Beispiel-Text.';
GetWindowRect(Form1.Handle, Rct);
DrawText(Form1.Canvas.Handle, PChar(Txt), Length(Txt), Rct, DT_SINGLELINE or DT_LEFT or DT_VCENTER or DT_END_ELLIPSIS);
end;
Bei mir nicht.
Ist nichts zu sehen weder in Delphi, noch in Lazarus. Liegt an den von Stahli genannten Gründen, denke ich.
Guck mal genau hin. Ich gebe den Text nicht auf einem Panel aus, sondern auf der Form selber, wo du aber auch gesagt hast, das würde nicht funktionieren.