大 大器晚成 Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-23 #1 鼠标不经意滚动时TcomBoBox的text改变了，我只要手工输入即可，不需要点击下拉框（因为内容太多）。想把滚轮事件屏蔽，请高手指教。
D Dstorm Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-23 #2 多动手哦！~ procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if GetWindow(ComboBox1.Handle, GW_CHILD) = GetFocus() then Handled:= True; end;
多动手哦！~ procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); begin if GetWindow(ComboBox1.Handle, GW_CHILD) = GetFocus() then Handled:= True; end;
大 大器晚成 Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-23 #4 谢谢 Dstorm，之前我也用过这个事件，只不过把handle=false，所以错了。后来在网络中查到WM_MOUSEWHEEL方法，比你的复杂，所以我又改了过来。if 语句在我的嵌套窗体中无效，去掉后可以实现屏蔽功能（正好我的窗体用不着MOUSEWHEEL事件) （给你加95分，delphizhou好学鼓励加5分）
谢谢 Dstorm，之前我也用过这个事件，只不过把handle=false，所以错了。后来在网络中查到WM_MOUSEWHEEL方法，比你的复杂，所以我又改了过来。if 语句在我的嵌套窗体中无效，去掉后可以实现屏蔽功能（正好我的窗体用不着MOUSEWHEEL事件) （给你加95分，delphizhou好学鼓励加5分）
D Dstorm Unregistered / Unconfirmed GUEST, unregistred user! 2008-09-25 #6 来自：地质灾害, 时间：2008-9-24 16:24:17, ID：3923299 加的分呢？ 舍不得呢！~这年头好心人，就这样被打击的！~
