J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
如题
B
bzmouse
Unregistered / Unconfirmed
GUEST, unregistred user!
gz
I
iamfly
Unregistered / Unconfirmed
GUEST, unregistred user!
对不起，JDELPHI你能不能说清楚点。不是很懂你的意思，你想让什么程序不受鼠标控制？<br>为什么要这样做？如果是自己的程序，可以不接受鼠标的任何事件；是其它程序，要用到<br>HOOK
Y
YB_unique
Unregistered / Unconfirmed
GUEST, unregistred user!
程序忙时，鼠标变做漏斗状，已经无法点击程序响应了！<br>你到底需要什么？
J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
程序运行过程中需要鼠标变做漏斗状,不再接受任何鼠标信息(只限于我自己的程序).<br>自己设置Screen.Cursor:=crHourGlass,程序还是可以响应鼠标的
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
要对其它程序也生效的话，用HOOK吧
L
lighttop
Unregistered / Unconfirmed
GUEST, unregistred user!
在程序中将Form 或有关控件的Enabled 的属性设为False 就好了. 不过你的程序不忙时就及时<br>恢复为True ,不然就死了
<br>最好加个Try ... Finally ... end .
<br>最好加个Try ... Finally ... end .
G
gear1023
Unregistered / Unconfirmed
GUEST, unregistred user!
在程序中将 Form 的Enabled 的属性设为False.<br>如下：<br><br> Self. Enabled := False;<br> Self. Cursor := crHourglass;<br> Self. Update;<br> Application. ProcessMessages;<br> try <br> {do something}<br> {如果你要做一個大循環，時間很長的話，在循環過程中加入：<br> Application. ProcessMessages; }<br> finally<br> form1. Enabled := True;<br> end;<br>
J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
gear1023:<br>不能使鼠标处于漏斗状
K
Kingron
Unregistered / Unconfirmed
GUEST, unregistred user!
用Screen.Cursor:=crHouseGlass;即可。
J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
如果单纯用Screen.Cursor:=crHourGlass,程序还会响应鼠标,<br>如果前面使用Self. Enabled := False;,Screen.Cursor:=crGourGlass就不起作用了
W
wk_knife
Unregistered / Unconfirmed
GUEST, unregistred user!
简单方法：Screen.Cursor:=crGourGlass后 用ShowModal弹出一个不可见的窗口，完成后释放。
黄
黄海波
Unregistered / Unconfirmed
GUEST, unregistred user!
到底你要干什么？[]
]
J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
大部分程序在运行中经常会出现鼠标变成漏斗的形状,防止用户让正处理任务中的程序执行其他操作.我只是想实现这种基本的功能
L
liangdewei
Unregistered / Unconfirmed
GUEST, unregistred user!
就是说你希望能控制别人的程序或者瘟98程序的运行咯，这样的话，只有用HOOK
W
wk_knife
Unregistered / Unconfirmed
GUEST, unregistred user!
最省心，最直接的办法，把能引起其他动作的孔件都disable。<br>不就多敲几句话嘛！
I
iamfly
Unregistered / Unconfirmed
GUEST, unregistred user!
同意wk_knife
J
jdelphi
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
