Im druck Zeilenumbruch erzwingen

[DeddyH]

Printer.Canvas.Handle, um genau zu sein. Hier ein kurzes Beispiel, das den String FText auf die Zeichenfläche des Formulars schreibt:

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var
  R: TRect;
begin
  R := ClientRect;
  InflateRect(R, -3, -3); //Offset von 3 Pixeln in X- und Y-Richtung
  DrawText(Canvas.Handle, PChar(FText), -1, R, DT_TOP or DT_LEFT or DT_WORDBREAK);
end;