delphi - 计算 TLabel 所需的大小

Question

好吧，问题来了。我在面板中有一个标签组件。该标签与 alClient 对齐并启用了自动换行。文本可以从一行到几行不等。我想重新调整面板(和标签)的高度以适合所有文本。

当我知道文本和面板的宽度时，如何获得标签的必要高度？

Answer 1

您可以使用 TCanvas.TextRect 方法以及 tfCalcRect 和 tfWordBreak 标志:

var
  lRect : TRect;
  lText : string;

begin
  lRect.Left := 0;
  lRect.Right := myWidth;
  lRect.Top := 0;
  lRect.Bottom := 0;
  
  lText := myLabel.Caption;

  myLabel.Canvas.Font := myLabel.Font;
  myLabel.Canvas.TextRect( 
            {var} lRect, //will be modified to fit the text dimensions
            {var} lText, //not modified, unless you use the "tfModifyingString" flag
            [tfCalcRect, tfWordBreak] //flags to say "compute text dimensions with line breaks"
          );
  ASSERT( lRect.Top = 0 ); //this shouldn't have moved
  myLabel.Height := lRect.Bottom;
end;

TCanvas.TextRect 包装了从 Windows API 对 DrawTextEx 函数的调用。

tfCalcRect 和 tfWordBreak 标志是 Windows API 的值 DT_CALCRECT 和 DT_WORDBREAK 的 Delphi 包装器。您可以在 msdn 的 DrawTextEx 文档中找到有关其效果的详细信息。