本文介绍了一种使用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; 見鬼回車沒有反應！！
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
