如何动态改变鼠标形状 - Delphi论坛

编程论坛 → 开发语言 → 『 Delphi论坛』 → 如何动态改变鼠标形状

标题：如何动态改变鼠标形状

只看楼主

zjqm

等　级：新手上路
帖　子：7
专家分：0
注　册：2005-12-21

问题点数：0 回复次数：2

如何动态改变鼠标形状

我在用delphi设计程序时，考虑到有些地方如正在运行时间比较长的过程或动作时，为了不让用户以为是死机了，需要改变鼠标的形状来表明过程正在运行中，等运行结束的时候让鼠标变为原来的标准形状。不知道该怎么实现，请各位大虾帮帮忙，小弟急啊！

搜索更多相关主题的帖子: 鼠标　形状　动态　大虾　 delphi　

2006-05-03 19:54

yaotian2008

等　级：新手上路
帖　子：27
专家分：0
注　册：2006-3-19

得分:0

很多控件都是一个DragCursor属性,设置这个属性就可以了!

2006-05-03 23:03

YunER1001

等　级：新手上路
帖　子：5
专家分：0
注　册：2006-5-26

得分:0

Screen.cursor:=crHourGlass;
{以下运行你的代码过程}
Screen.cursor:=crDefault

2006-05-26 15:36