Question

delphi鼠标滚动条的问题

问题描述
我在mainform的FormMouseWheel的事件里边写了相应鼠标滚轮的事件。然后刚进系统，鼠标滚动，滚动条也能正常滚动。
procedure TMainForm.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);begin・・・ if WheelDelta < 0 then sbxts200001.perform(WM_VSCROLL, SB_LINEDOWN, 0) else sbxts200001.perform(WM_VSCROLL, SB_LINEUP, 0)・・・
但进入stringgrid编辑东西后，鼠标滚动，貌似是响应了stringgrid的滚动条，之后就无法让scrollbox相应鼠标滚动了。
问下各位大侠，有什么办法，在编译stringgrid之后，重新让scrollbox相应鼠标滚动呢？？

Answer 1

看看 stringgrid 中有没有鼠标滚动事件，然后看看能否把它sender给scrollbox

另外，你可以去 csdn问问，他们比较专业

追问

好像问题点在于：

stringgrid编辑之前，鼠标针对的对象是form
stringgrid编辑之后，鼠标滚动的对象就变成了stringgrid了。

追答

是的呢，焦点变了的

追问

我在stringgrid的onexit事件中写了Form1.SetFocus;
结果还是不对