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