鼠标移动??????????????

如何判断鼠标是否进入或离开一个tpanel,比如panel1或其它控件

解决方案 »

  1.   

    procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    该事件为鼠标移动事件。
      

  2.   

    x、y鼠标在Panel1上的坐标(单位：象素)。可以通过检测X、Y的值来判断鼠标是否进入或离开。
      

  3.   

    鼠标进入Panel1,就会触发Panel1MouseMove事件。
      

  4.   

    可以，最根本的方法就是获得控件的CM_MOUSEENTER和CM_MOUSELEAVE消息，不过TPanel已经装其封装为事件了，所以你直接响应OnEnter和OnExit事件就行了。
      

  5.   

    楼上的方法必须要焦点到panel1。如panel1上放一个Edit,当Edit获得焦点或失去焦点时才会触发OnEnter或OnExit事件。不能判断鼠标是否进入或者离开panel1
      

  6.   

    那就直接响应CM_MOUSEENTER和CM_MOUSELEAVE消息好了.