Forum: FreePascal
by Luckie,
30. Okt 2011
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.
Forum: FreePascal
by Luckie,
30. Okt 2011
Ja, natürlich hat es einen. Aber ich meinte ein Canvas dem man so nutzen kann.
Forum: FreePascal
by Luckie,
30. Okt 2011
Geht doch:
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;