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.