如何将文本输出放在一个区域中？

Question

目前在 TGraphicControl 组件中使用 canvas.textout 来显示一些文本，但我需要将文本留在一个区域内。有没有我可以使用的自动换行之类的属性..或设置文本输出区域的方法？像这样

var
  r: TRect
  s: string
begin
  s := 'some long text that takes up about 3-4 lines';
  r.Left := 10;
  r.Top := 10;
  r.Right := 20;
  r.bottom := 50;
  textout(r,s);
end;

Answer 1

您可以为此使用DrawText 函数：

procedure TForm1.FormPaint(Sender: TObject);
const
  S = 'This is some sample text. It is very long. Very long, indeed.' +
      'Very, very, long.';
var
  R: TRect;
begin
  R := Rect(100, 100, 200, 200);
  DrawText(Canvas.Handle, S, length(S), R, DT_WORDBREAK);
end;