有dbgrid中click滚动条的相关事件吗?

Question

本人在dbgrid中做了一种特效,想当移动滚动条时该特效清除,但找不到相关事件

Answer 1

截获两个消息：
type
  TMyDBGrid = class(TDBGrid)
  protected
    procedure WMHSCROLL(var Message: TMessage);
      message WM_HSCROLL;
    procedure WMVSCROLL(var Message: TMessage);
      message WM_VSCROLL;
  end;
 
implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
   with TMyDBGrid.Create(Self) do
   begin
     Parent := Self;
     DataSource := DataSource1;
   end;
end;procedure TMyDBGrid.WMHSCROLL(var Message: TMessage);
begin
  inherited;
  ShowMessage('HSCROLL');
end;procedure TMyDBGrid.WMVSCROLL(var Message: TMessage);
begin
  inherited;
  ShowMessage('VSCROLL');
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

afterscroll
里对全局变量进行控制，就是设置一个开关就好了!