Delphi AdvStringGrid控件问题

Question

哪位大虾有遇见过这个问题
在AdvStringGrid控件里面有个组合键（自带的）
当你选中AdvStringGrid中的某个单元格（只是选中 不进入编辑状态） 之后按Ctrl+鼠标的中键进行滚动，就会变大变小AdvStringGrid我现在想屏蔽掉这以功能，大虾有啥解决办法？

Answer 1

procedure Mwheel (var Message : TCMMouseWheel); message CM_MOUSEWHEEL;procedure TForm1.Mwheel(var Message: TCMMouseWheel);
var
 IsNeg : Boolean;
begin
 if (Message.Result = 0) and (Message.ShiftState=[ssCtrl]) then
 begin
   IsNeg := Short(Message.WheelDelta) < 0;
   if IsNeg then
     //这里写向下滚动时要处理的代码
   else
     //这里写向上滚动时要处理的代码
 end;
end;
试着截获消息。
 ps：这个代码是参考楼上的！

Answer 2

很纠结的问题  它的触发ctrl+鼠标滚动比我设置的OnMouseWheelDown（up）还要快 我想直接弹出消息框都没办法...