因ComboBox沒有MouseDown的功能,請問要如何才能製作或者取得Mouse動件

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls;    type   TForm1 = class(TForm)     ComboBox1: TComboBox;     Button1: TButton;     Memo1: TMemo;     ComboBox2: TComboBox;     procedure FormCreate(Sender: TObject);   private     procedure  OnMessage(var Msg: Tmsg; var Handled: Boolean);     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.OnMessage(var Msg: Tmsg; var Handled: Boolean); var   Pt : TPoint;   WinCon : TWinControl;   WND : HWND; begin //不能按下鼠标那个健，都触发；您可以根据需要选取[L、M、R] if NOT ((Msg.message=WM_LBUTTONDOWN) OR (Msg.message=WM_MBUTTONDOWN) OR (Msg.message=WM_RBUTTONDOWN))  then EXIT; GetCursorPos(Pt); WND :=Handle; repeat     WinCon := FindControl(WND);     WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(Pt));     if WND = 0 then exit; until (WND = WinCon.Handle) or (WinCon.ControlCount <= 0); IF wincon IS tCOMBOBOX THEN //加入判断，来决定那个COMBOBOX发生鼠标按键事件 IF WINCON.Name ='ComboBox1' THEN [RED]//需要执行的相关事件的CODE MEMO1.Lines.Add(WINCON.Name); inherited end; procedure TForm1.FormCreate(Sender: TObject); begin application.onMessage:=onMessage; end; end. 供参考~