delphi - 如何获取 DrawText(); 的换行文本的新高度？

Question

代码示例

procedure TForm1.Button1Click(Sender: TObject);
var
  r: Trect;
  s: String;
begin
  R := Rect(0,0, 300, 100);
  s := 'WordWrapTextOut(TargetCanvas: TCanvas; var x, y: integer; S: string; maxwidth, lineheight: integer);';
  DrawText(Canvas.Handle, PChar(s),  length(s), R, DT_WORDBREAK or DT_LEFT);
end;

我想将文本换行为 300px 宽度，但如何获得新的高度？有什么办法或者解决办法吗？

Answer 1

绘制文字的高度为DrawText的返回值.

HeightOfText := DrawText(...