这个消息如何捕捉？(20分)

假如我在滚动Stringgrid的滚动条的时候，我同时要处理其他的一个操作，
这时候，我如何通过捕捉滚动的消息来处理。
比如说当我滚动滚动条时候，FROM1的属性为'scoll now'

E N _ H S C R O L L
E N _ V S C R O L L

看一下源码，或许会知道。

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,QuickRpt, QRCtrls;

type
TQE = class(TStringgrid)
private
{ Private declarations }
FOnHScroll:TNotifyEvent;
FOnVScroll:TNotifyEvent;
protected
procedure CNHscroll(var Message: TMessage); message CN_HSCROLL;
procedure CNVscroll(var Message: TMessage); message CN_VSCROLL;

public
{ Public declarations }
published
property OnHScroll:TNotifyEvent read FOnHScroll write FOnHScroll;
property OnVScroll:TNotifyEvent read FOnVScroll write FOnVScroll;
end;

implementation


{ TQE }




{ TQE }

procedure TQE.CNHscroll(var Message: TMessage);
begin
inherited;
if Assigned(FOnHScroll) then
FOnHScroll(Self);
end;

procedure TQE.CNVscroll(var Message: TMessage);
begin
inherited;
if Assigned(FOnVScroll) then
FOnVScroll(Self);
end;

end.