如何让combobox组件不响应鼠标滚动??????急！！！！

[meng_1226]

如何让combobox组件不响应鼠标滚动,
我一个窗体里有一个combobox组件和一个paintbox组件，
我想实现在paintbox上画图响应鼠标滚动，
但是在选择combobox里一个选项后，鼠标滚动，就只响应combobox选择
如何禁止这个事件吗？？？

[xiaocuo_zrf]

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if Self.ActiveControl is TCombobox then
Handled := True
end;

[xiaocuo_zrf]

在Form 的FormMouseWheel下面处理

[haoqingqlm]

将combobox的焦点移走

[xiaocuo_zrf]

------完整代码如下
procedure FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
-----------

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if Self.ActiveControl is TCombobox then
begin
Handled := True;
if WheelDelta < 0 then
ScrollBox1.Perform(WM_VSCROLL, SB_LINEDOWN, 0)
else
ScrollBox1.Perform(WM_VSCROLL, SB_LINEUP, 0);
end;
end;

[meng_1226]

to xiaocuo_zrf:

谢谢，这样的确可以，但是有一个问题是这样什么事件都不响应了！
我的意思是，当鼠标在combobox上（焦点也是combobox）时，响应combobox列表的选择，
当鼠标不在combobox(焦点是combobox)时，响应其他鼠标滚动事件！
有什么办法吗？
解决了马上送分！！谢谢

[meng_1226]

先这样吧，
谁知道再送分吧！
结账了！