向高手请教：当在DBGrid中的垂直、水平滚动按钮上的触发事件

Question

响应该控件的WM_HSCROLL、WM_VSCROLL消息。

Answer 1

请问在Delphi中如何来响应该消息呢？

Answer 2

编写一个消息处理函数：
  private
    procedure  msghandle(var msg:Tmsg;var handled:boolean);在实现部分给它实现
procedure  TForm1.msghandle(var msg:Tmsg;var handled:boolean);
begin
  //如果是WM_HSCROLL
end;

Answer 3

编写一个消息处理函数：
  private
    procedure  msghandle(var msg:Tmsg;var handled:boolean);在实现部分给它实现
procedure  TForm1.msghandle(var msg:Tmsg;var handled:boolean);
begin
  //如果是WM_HSCROLL则,handled:=true;//表示该消息已经处理，系统不必管了。
end;然后在 form的create 事件中指定：
  application.onmessage:=self.msghandle;  

Answer 4

不对简单的方法是，自己写个控件，你只需要加两个方法就行：TScrollGrid = class(TDBGrid)
  procedure WMHSCROLL(var message: TMessage); message WM_HSCROLL;
  procedure WMVSCROLL(var message: TMessage); message WM_VSCROLL;
end;