光標進入離開事件 delphi

最新推荐文章于 2023-03-23 20:10:50 发布

原创最新推荐文章于 2023-03-23 20:10:50 发布 · 453 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #image

本文介绍了一种使用Delphi实现窗体上图片控件(Image1)的鼠标进入和离开事件的方法。当鼠标进入Image1时，窗体标题会显示“光標進入”，而当鼠标离开Image1时，窗体标题则变为“光標離開”。该方法通过重写CMMouseEnter和CMMouseLeave消息来实现。

    procedure   CMMouseEnter(var   Message:   TMessage);   message   CM_MOUSEENTER;
    procedure   CMMouseLeave(var   Message:   TMessage);   message   CM_MOUSELEAVE;procedure   TForm1.CMMouseEnter(var   Message:   TMessage);
begin
      if   TObject(Message.LParam)   =   Image1 then   begin
          self.Caption   :=   '光標進入;
      end;
end;

procedure   TForm1.CMMouseLeave(var   Message:   TMessage);
begin
      if   TObject(Message.LParam)   =   Image1   then   begin
          self.Caption   :=   '光標離開;
      end;
end;   見鬼回車沒有反應！！