如何在stringgrid中屏蔽滚轮滑动事件？？？

Question

如题，在stringgrid中，滚轮上下滑动时，stringgrid中的cell也上下移动被选中，如何在屏蔽掉滚轮的滑动事件，让其上下滑动时cell不上下移动？？多谢各位~~~

Answer 1

你把滚动消息钩了,然后再判断是不是STRINGGRID的,

Answer 2

我不是从数据库里读取的内容，我自己在stringgrid里边画了一些checkbox，上下移动滚轮时老是出现一些不必要的错误，所以想去了~~~

Answer 3

不用这么麻烦吧,直接在stringgrid的onmousewheeldown事件里写一下就行procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 Handled := true;
end;

Answer 4

对了,还有在onmousewheelup事件里加一句
procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
end;procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
end;