请教：TComboBox,如何去掉其对MouseWheel的支持？？

Question

也就是说，不理MouseWheel

Answer 1

试试,对TComboBox的WindowProc做手脚.
定义一个过程
procedure AForm.NewWindowProc(var Message: TMessage);
begin
  if Message.Msg <> MouseWheel then OldWindowProc(Message)
end;
使用变量记住控件原来的WindowProc:
Var OldWindowProc:= AComboBox.WindowProc;
AComboBox.WindowProc:=NewWindowProc

Answer 2

procedure AForm.NewWindowProc(var Message: TMessage);
begin
  if Message.Msg <> MouseWheel then OldWindowProc(Message)
end;
使用变量记住控件原来的WindowProc:
Var OldWindowProc:= AComboBox.WindowProc;
AComboBox.WindowProc:=NewWindowProc