Delphi怎么没有OnMouseOut事件阿？OnMouseOn也没有。。。 ？？？

谢谢

解决方案 »

  1.   

    没有的，只有几个关于mouse的
      

  2.   

    拦截两个消息CM_MOUSEENTER、CM_MOUSELEAVE便可
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
      

  3.   

    能详细点么？
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;这个是声明，对么？
    怎么使用呢？
      

  4.   

    upupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupupup
      

  5.   

    procedure TFormX.CMMouseLeave(var Message: TMessage);
    begin
        ……//完成相应功能代码，就完了！
        ……
    end;
      

  6.   

    为什么？这要问Borland。
    不过，自己添加CMMouseLeave或CMMouseEnter消息即可。
      

  7.   

    如果是一个TButton控件呢？怎么声明？
      

  8.   

    那不是有OnMouseMove吗，在里面自己计算一下坐标不就完成了吗，截消息很烦
      

  9.   

    melice(melice) ，地球人都知道了
      

  10.   

    声明一个消息处理过程
    procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;实现代码
    procedure TForm1.CMMouseLeave(var Message: TMessage);
    begin
      if TObject(Message.LParam) = Button1 then
        ShowMessage('鼠标离开了');
    end;
      

  11.   

    {bigwhiteshark(大白鲨_曾凡坤_曾牧暗鲨) (  ) 信誉：111 
    声明一个消息处理过程
    procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;实现代码
    procedure TForm1.CMMouseLeave(var Message: TMessage);
    begin
      if TObject(Message.LParam) = Button1 then
        ShowMessage('鼠标离开了');
    end;
    }此法不可 ， 虽然可以实现基本功能：当鼠标离开式会提示'鼠标离开了'
    但是不知你试过没有，我鼠标离开的一瞬间，我至少收到4，500个
     ShowMessage('鼠标离开了'); ！！！！！！！！！！！！
    不知你如何解释？！
    我认为还是原始的比较好 ，用OnMouseMove 消息，判断子窗体的位置，来确定鼠标是否离开子窗体！！
      

  12.   

    对于一些控件她们都有一些OnEnter,或者是OnExit事件，或许可以代替你说的那些事件来处理事情