Delphi: TMemo垂直滚动条自动显示

最新推荐文章于 2021-12-08 11:22:52 发布

weixin_30546189

最新推荐文章于 2021-12-08 11:22:52 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/crwy/p/9504815.html

本文介绍了一种自定义TMemo组件的方法，通过重写Change方法来动态控制垂直滚动条的显示与隐藏，确保文本完全可见。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

项目中碰到此问题，之前一直没留意，研究一番用上，以做备忘。参考其它解决方法，不尽完美，自试之，达到效果。

直上代码：

type
  TMemo = class(StdCtrls.TMemo)
  protected
    procedure Change; override;
  end;

{ TMemo }

procedure TMemo.Change;
var
  lc, lh: Integer;
  cvs: TControlCanvas;
begin
  inherited;

  cvs := TControlCanvas.Create;
  try
    cvs.Control := Self;
    cvs.Font.Assign(Font);
    lh := cvs.TextHeight('z') + 2;
  finally
    cvs.Free;
  end;

  lc := Lines.Count;
  if (Text <> '') and (Text[Length(Text)] = #10) then
    Inc(lc);
  if lc * lh > Height then
  begin
    if ScrollBars = ssNone then
    begin
      ScrollBars := ssVertical;
      Perform(WM_VSCROLL, SB_BOTTOM, 0);
    end;
  end
  else if ScrollBars = ssVertical then
    ScrollBars := ssNone;
end;