鼠标的指向问题!

Question

自己处理一下消息
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; //指向
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; //离开

Answer 1

建一个窗口，放一个label，把下面代码拷过去慢慢看。分无所谓unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
  private
    { Private declarations }
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER; //指向
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE; //离开
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}{ TForm1 }procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
  if TObject(Message.lParam) = Label1 then
    Label1.Caption := 'Enter Me!';
end;procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
  if TObject(Message.lParam) = Label1 then
    Label1.Caption := 'Leave Me!';
end;end.