如何出发TComboBox对象的鼠标移动事件！

Question

......

Answer 1

自己继承一个控件，代码如下
  TMyCombobox = class(TCombobox)
  published
    property OnMouseMove;
  end;

Answer 2

在程序中加上type
  TComboBox = class(StdCtrls.TComboBox)
  protected
    procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE;
  end;type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;implementationprocedure TComboBox.WMMouseMove(var Message: TWMMouseMove);
begin
  ShowMessage('MouseMove');
end;

Answer 3

ComboBox没有自己的鼠标移动消息吗？

Answer 4

TComboBox的祖先类TControl有这个事件，只是没有published而已