如何捕获TMemo控件滚动条出现的消息以调整字体大小？

TMemo基于Windows原生EDIT控件，系统并没有专门发送一条“滚动条出现”的消息，但可以通过主动检查滚动条状态结合关键时机触发的方式实现你的需求，具体如下：

核心思路 #

当TMemo的内容高度超过控件客户区高度时，垂直滚动条会自动显示。我们可以通过Windows API获取滚动条参数判断其是否存在；同时在文本变化、控件尺寸改变等关键时机触发检查，进而调整字体大小。

具体实现步骤 #

1. 重写TMemo的窗口过程，捕获关键消息 #

在Delphi中，你可以自定义TMemo子类，重写WndProc方法，在文本更新、控件尺寸变化、用户输入字符时触发滚动条检查：

type
  TAdjustFontMemo = class(TMemo)
  protected
    procedure WndProc(var Message: TMessage); override;
  private
    procedure CheckScrollBarAndResizeFont;
  end;

procedure TAdjustFontMemo.CheckScrollBarAndResizeFont;
var
  ScrollInfo: TScrollInfo;
begin
  ScrollInfo.cbSize := SizeOf(TScrollInfo);
  ScrollInfo.fMask := SIF_RANGE or SIF_PAGE;
  // 获取垂直滚动条的参数
  if GetScrollInfo(Handle, SB_VERT, ScrollInfo) then
  begin
    // 内容总高度 > 控件客户区高度时，滚动条显示
    if (ScrollInfo.nMax - ScrollInfo.nMin + 1) > ScrollInfo.nPage then
    begin
      // 设置最小字号，避免无限缩小
      if Font.Size > 6 then
        Font.Size := Font.Size - 1;
    end;
  end;
end;

procedure TAdjustFontMemo.WndProc(var Message: TMessage);
begin
  inherited;
  // 在这些关键时机触发检查
  case Message.Msg of
    WM_SETTEXT,   // 文本被设置时
    WM_SIZE,      // 控件尺寸变化时
    WM_CHAR:      // 用户输入字符时
      CheckScrollBarAndResizeFont;
  end;
end;

2. 关键API说明 #

• GetScrollInfo：获取滚动条的范围（nMax/nMin）和页面大小（nPage，即控件客户区可显示的内容高度）。当内容总高度（nMax - nMin +1）大于nPage时，说明滚动条已显示。
• 选择的消息覆盖了绝大多数会导致滚动条状态变化的场景，确保不会错过调整时机。

注意事项 #

• 必须设置最小字号限制，防止字体无限缩小导致无法显示内容。
• 如果需要在滚动条消失时恢复字体大小，可以在CheckScrollBarAndResizeFont中添加反向判断逻辑。

内容的提问来源于stack exchange，提问作者user21587900