delphi - 我如何知道标签字是否包含文本？

Question

我创建了一个 TLabel 并向其中动态添加文本，效果很好。但我需要知道标签是否将文本换行，因为它对于标签的宽度来说太大了，或者是否不需要它换行，因为文本比标签的宽度短。

我不是想知道标签的 WordWrap 属性设置为 true 还是 false，我想知道它是否对文本进行了换行。

TLabel 将 AutoSize 和 WordWrap 属性设置为 true，以防万一。

Answer 1

您可以通过检查标签的高度来确定它是否是单行的。

if Label1.Height = Label1.Canvas.TextHeight('.') then
  // no word wrapped

That is because :

When WordWrap is True, the width of the label is fixed. If AutoSize is also True, changes to the text cause the label to change in height.