如何在不使用TScrollBar时实现TStringGrid的OnScroll事件及全场景滚动触发？

要覆盖拖动滚动条、点击滚动箭头这些场景，你可以通过重写TStringGrid的窗口过程（WndProc）拦截WM_VSCROLL消息来实现，无需额外添加TScrollBar控件。具体步骤如下：

1. 自定义TStringGrid子类 #

在你的Form单元中，声明一个继承自TStringGrid的自定义类，重写其WndProc方法以处理滚动消息：

type
  TMyStringGrid = class(TStringGrid)
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

  // 你的Form类保持原有结构
  TForm1 = class(TForm)
    StringGrid1: TMyStringGrid; // 将原TStringGrid替换为自定义类
    // ...其他组件声明
  private
  public
  end;

2. 实现WndProc方法 #

在方法中拦截WM_VSCROLL消息，先让控件执行默认滚动逻辑，再检查当前滚动位置是否接近底部：

procedure TMyStringGrid.WndProc(var Message: TMessage);
const
  // 定义距离底部的触发阈值（可根据需求调整）
  SCROLL_BOTTOM_THRESHOLD = 3;
var
  TotalRows, VisibleRows, CurrentTopRow: Integer;
begin
  // 先执行默认窗口逻辑，确保滚动操作完成
  inherited;

  // 仅处理垂直滚动消息
  if Message.Msg = WM_VSCROLL then
  begin
    TotalRows := RowCount;
    VisibleRows := VisibleRowCount;
    CurrentTopRow := TopRow;

    // 判断是否接近底部：当前可见区域的底部行 >= 总行数 - 阈值
    if (CurrentTopRow + VisibleRows) >= (TotalRows - SCROLL_BOTTOM_THRESHOLD) then
    begin
      // 这里替换为你需要执行的特定操作
      // 示例：ShowMessage('已滚动至接近底部');
      DoYourCustomOperation;
    end;
  end;
end;

3. 应用自定义类 #

如果是设计时已放置TStringGrid，在Object Inspector的Class Name下拉框中选择你定义的TMyStringGrid即可；若为动态创建，直接实例化TMyStringGrid类即可。

原理说明 #

TStringGrid内部自带的滚动条未暴露OnScroll事件，但所有滚动操作（拖动滚动条、点击上下箭头、滚动滑轮）都会向控件发送WM_VSCROLL（垂直）或WM_HSCROLL（水平）窗口消息。通过拦截这些消息，就能在滚动完成后检测位置并触发自定义逻辑。

额外注意 #

• 若需处理水平滚动，只需添加对WM_HSCROLL消息的拦截逻辑即可。
• 阈值SCROLL_BOTTOM_THRESHOLD可根据业务需求调整，比如设置为5表示距离底部还有5行时触发操作。
• 即便StringGrid使用可变行高，VisibleRowCount依然能准确返回当前可见行数，无需手动计算。

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