Delphi中竟然没有OnMouseOver、OnMouseOut事件吗?怎样才可以实现这两个事件?

解决方案 »

  1.   

    有OnMouseEnter,OnMouseLeave等相同的事件。
      

  2.   

    有OnMouseEnter,OnMouseLeave等相同的事件。自己写代码实现这些消息
      

  3.   

    hehe,当然,并不是每个控件都有OnMouseEnter,OnMouseLeave,那也用不着大惊小怪的
      

  4.   

    写OnMouseEnter,OnMouseLeave可以有你想要的
      

  5.   

    多谢解释。
    比如说我想在一个TImage中实现一个OnMouseEnter事件。TImage继承自TControl,而TControl有OnMouseEnter事件,但是这个事件只能用在CLX Applications开发中,这是什么意思?什么样的程序才算是“Cross Platform”?盼望解答。
    所以当我这样写时:
    Interface
    procedure TForm1.Image1MouseEnter( Sender TObject ); overload;Implementation
    procedure TForm1.Image1MouseEnter( Sender TObject );
    begin
      try
        Image1.Picture.LoadFromFile( 'c:\temp\temp.jpg' );
      except
      end;
    end;end;
    程序运行后根本不会响应OnMouseEnter事件。请高手指教怎样实现。
      

  6.   

    http://expert.csdn.net/Expert/TopicView1.asp?id=1604705