动态创建的THTMLabel.Height总是返回默认值？

Question

我正在创建许多动态创建的 THTMLabels，但是在创建这些标签之后，当我尝试获取它的高度时，它总是返回默认高度值。

这是我的代码：

for i := 0 to ASentencePtr^.MUS.Count - 1 do
begin
  j := Random(slTemp.Count);
  sSen := ASentencePtr^.MUS.Strings[StrToInt(slTemp.Strings[j])] + ' / ';

  THTMLabel.Create(Self).Name := 'lblSen_' + slTemp.Strings[j];
  with THTMLabel(FindComponent('lblSen_' + slTemp.Strings[j])) do
  begin
    Font.Size := 18;
    Font.Style := [fsBold];
    Parent := FlowPanel1;
    Width := Parent.Width;
    Cursor := crHandPoint;
    DragMode := dmAutomatic;
    ControlStyle := ControlStyle + [csDisplayDragImage];
    HTMLText.Add(sSen);
    Autosizing := True;        
  end;

  slTemp.Delete(j);
end;

现在，当我尝试访问 THTMLabel(FindComponent('lblSen_0')).Height 时，它仅返回默认值 17。我哪里出错了？有人有什么想法吗？非常感谢任何帮助，谢谢。

Answer 1

我们遇到了同样的问题，但设法使用 THTMLStaticText 组件和这个在动态（高度）调整时计算高度的函数解决了这些问题：

function CalculateDynamicHeight( aLabel: TLabel; htmlStaticText: THTMLStaticText): Integer;
var
  lRect : TRect;
  lText : string;
begin
  lRect := Rect( 0, 0, htmlStaticText.Width, 0);
  lText := htmlStaticText.Text;

  aLabel.Caption := htmlStaticText.Text;
  aLabel.Font := htmlStaticText.Font;
  aLabel.Canvas.Font := htmlStaticText.Font;
  aLabel.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
  aLabel.Height := lRect.Bottom;

  Result := lRect.Bottom;
end;

该函数需要一个 TLabel 组件，专门用于计算目的（您可以将可见性设置为 false）。 htmlStaticText 组件应将 AutoSize 设置为 true（在我们的示例中，AutoSizeType 设置为 asVertical），并且在调用该函数时应存在 htmlStaticText.Text。

Answer 2

我认为 THTMLLabel 是 Jedi Library 的一部分，不是吗？这个问题很奇怪。我不知道该控件的实现，但如果您遇到此问题，则可能是 AutoSize 属性的实现非常糟糕。

如果您无法检查并修复此控件的源，请尝试使用 BoundsRect 属性来获取高度：

LabelHeight := THTMLabel(FindComponent('lblSen_0')).BoundsRect.Bottom;