delphi - 显示 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;