procedure Button1Click(Sender: TObject);

    procedure tbStatusToolBarMouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure FormCreate(Sender: TObject);

    procedure TBXItem1Click(Sender: TObject);

    procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y: Integer);

  private

    function GetEditText: string;

    procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息

    procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息

    { Private declarations }

  public

    { Public declarations }

  end;

procedure TForm2.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 TForm2.MSGLeave(var msg: TMessage);

var

  myobj : TObject;

begin

    myobj := TObject(msg.LParam);

//  if (myobj <> nil) and (myobj is TPanel) then

//  begin

//    TPanel(myobj).Visible := False;

//    Button2.Tag := 0;

//  end;

    //TPanel(myobj).Caption := 'leave';

end;