Stringgrid的滚动条问题

Question

我想截获当点击stringgrid的下面的水平滚动条的消息，
请问如何获得。我想在点击水平滚动条时触发一个事件。
但我用WM_HSCROLL 或EN_HSCROLL均未有响应，请教？

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TMemo = class(StdCtrls.TMemo)
  private
    procedure WMHScroll(var Message: TWMVScroll); message WM_VSCROLL;
  end;
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TMemo }procedure TMemo.WMHScroll(var Message: TWMVScroll);
begin
  inherited;
  ShowMessage('aa');
end;end.