delphi 鼠标事件的问题(急)

dirkill 2009-08-13 11:09:27

鼠标移动到lable1时,显示一张图片,移开后,又显示另一张图片,怎么做,我只做出来了移动到lable1时显示一张图片,但是移开后,还是那一张,怎么写移动开的事件啊

...全文

96 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

duanlifeng 2009-10-30

打赏
举报

已经解决

happy664618843 2009-10-29

打赏
举报

[Quote=引用 1 楼 lin_xx 的回复:]
先声明：
procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;

procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
if TObject(Message.LParam) = label1 then
// change your image;
end;
[/Quote]
不错帮顶

fengqiao1999 2009-10-27

打赏
举报

还不如使用image控件！！！

lin_xx 2009-10-26

打赏
举报

先声明：
procedure CMMouseLeave(var Message: TMessage); message CM_MouseLeave;

procedure TForm1.CMMouseLeave(var Message: TMessage);
begin
if TObject(Message.LParam) = label1 then
// change your image;
end;

本文介绍如何在Delphi7中使ScrollBox控件响应鼠标滚轮事件，包括修改Perform方法为SendMessage，以及在特定事件中发送滚轮消息的实现方式。

本教程聚焦DELPHI开发，介绍如何实现鼠标移动时获取当前句柄并执行特定操作。详细讲解了DELPHI环境下鼠标操作、Windows句柄概念及应用，还阐述了多个API函数的使用，如获取鼠标位置、坐标转换、获取活动窗口句柄等，同时涉及事件驱动编程模型和项目文件结构。

本文详细介绍了在Delphi编程中如何控制鼠标，包括改变鼠标指针形状、响应鼠标移动、处理鼠标按键以及实现拖放操作。通过设置属性如Cursor、DragCursor和DragMode，以及使用BeginDrag、Dragging、EndDrag等方法，可以实现从简单的鼠标形状改变到复杂的拖放功能。此外，文章还讨论了OnMouseMove、OnMouseDown、OnMouseUp、OnDragDrop和OnDragOver等事件的使用，展示了如何在Delphi中创建动态对象并实现拖拽效果。

本教程聚焦Delphi编程中获取鼠标位置的方法。介绍了Windows API函数在Delphi中的调用，分析其与鼠标事件的关系及不同系统兼容性。详细讲解相关函数的用法、事件处理，还阐述了鼠标位置实时显示的界面设计与程序逻辑，可增强界面互动性和用户体验。