如何时感鼠标进入与离开某个控件

 

Delphi没有MouseEnter与MouseLeave的事件，网上说可以响应CM_MOUSEENTER和CM_MOUSELEAVE消息来实现。这两个消息是VCL自己定义的消息，看了Delphi的Controls.pas果然看到有以下两行：

  CM_MOUSEENTER             = CM_BASE + 19;
  CM_MOUSELEAVE             = CM_BASE + 20;

其中CM_BASE = $B000

 

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DXDraws; type TForm1 = class(TForm) pnl1: TPanel; DXDraw1: TDXDraw; private { Private declarations } procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息 procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.MSGEnter(var msg: TMessage); var myobj : TObject; begin myobj := TObject(msg.LParam);//用LParam进行判断鼠标进入了哪个控件 if (myobj <> nil) and (myobj is TPanel) then TPanel(myobj).Caption := 'enter'; end; procedure TForm1.MSGLeave(var msg: TMessage); var myobj : TObject; begin myobj := TObject(msg.LParam); if (myobj <> nil) and (myobj is TPanel) then TPanel(myobj).Caption := 'leave'; end; end.