Delphi CxCombobox 拦截滚轮事件，使之聚焦时文本框内的内容不随着滚轮的滚动而发生变化

  在写程序时，我发现在滚动鼠标滚轮时，原意是想让整个页面向下Scroll，但是此时恰巧

页面焦点聚焦在Combobox的文本框内，滚动滚轮却是把Combobox内的内容给改变了。正常情况下这个也不影响什么，有时也方便操作，但是在此时的情况下无疑是不合适的，因为用户可能在不知情的情况下会把Combobox内的内容给改变，这无疑是不能发生的，

所以，我就自己写段代码，来阻止这种事情发生。

  RzCombobox有滚轮事件，但是Delphi自带的Combobox还有Dev Express的cxCombobox没有此事件，那么我们就可以自己写代码来拦截滚轮事件，以下是代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ComboBox1: TComboBox;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Procedure OnMouseWheel(Var Msg: TMsg; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := OnMouseWheel;
end;

procedure TForm1.OnMouseWheel(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then
  begin
    //ShowMessage(ActiveControl.ClassName);
    if ActiveControl IS TComboBox then  //Delphi自带Combobox
    //if ActiveControl.ClassName = 'TcxCustomComboBoxInnerEdit' then  //CxCombobox
    begin
      Handled := True;
    end;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Application.OnMessage := nil;
end;

end.