光標進入離開事件 delphi

原创于 2008-06-09 16:58:00 发布 · 788 阅读

CC 4.0 BY-SA版权

文章标签：

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

    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;   見鬼回車沒有反應！！