显示TLabel中的最后一行

Question

我有一个固定高度和自动换行的TLabel。问题是，当标题文本超出标签的高度时，我无法看到最后一行文字。我在整个互联网上搜索标签组件，这些组件可以向下滚动并显示超出标题高度的最后一行文字。

正如您在此图片中看到的那样，第7行是半可见的，第8行甚至没有显示：

我希望第1行消失或上升，第8行完全可见。

Answer 1

您可以覆盖TLabel的DoDrawText虚拟方法。像这样的东西（使用插入类的例子）：

TLabel = class(StdCtrls.TLabel)
protected
  procedure DoDrawText(var Rect: TRect; Flags: Longint); override;
end;

... 

procedure TLabel.DoDrawText(var Rect: TRect; Flags: Longint);
var
  R: TRect;      
  TextHeight: Integer;
begin
  if (Flags and DT_CALCRECT = 0) then
  begin
    R := ClientRect;
    Canvas.Font := Font;
    DrawText(Canvas.Handle, PChar(Text), -1, R, DT_EXPANDTABS or DT_CALCRECT or DT_WORDBREAK);        
    TextHeight := R.Bottom - R.Top;    
    if TextHeight > ClientHeight then
      Rect.Top := Rect.Top - (TextHeight - ClientHeight);
  end;
  inherited DoDrawText(Rect, Flags);
end;

Answer 2

您可以使用TScrollBox：

• 删除TScrollBox。

• 将TLabel放入TScrollBox。

• 将标签设置为alTop。