【结贴】鼠标形状变化后遇到异常变不回去**

rzport_lq0 · 发表于 2008-9-17 10:34:41

我在双击打开word文档，让鼠标变成漏斗形状，但是如果word文档没有打开，或者打开word有其他提示（例如不小心把word文档加密了），鼠标的形状就一直是漏斗状态，只能把网页关掉，重新登陆才能让漏斗状态变回原来的状态。现在想打开word文档的期间，让他成漏斗状态，其他任何状态都是是原来的状态.

zfang · 发表于 2008-9-17 10:43:09

加上一个
try
fianlly //或者except
end
看看呢！

rzport_lq0 · 发表于 2008-9-17 11:48:05

这样写不行
  Forms.Screen.Cursor:=-11;
  try
actOpenUpdate(actOpen);
  if actOpen.Enabled then
actOpenExecute(actOpen);
finally
  Forms.Screen.Cursor:=-0 ;

  end;

lixy · 发表于 2008-9-17 11:55:05

可以

rzport_lq0 · 发表于 2008-9-17 12:30:07

我这边测试的有问题啊
不能变回去啊

jiahaiming · 发表于 2008-9-17 13:53:05

我们这里测试是可以的。
楼主，你贴完整代码来看看

rzport_lq0 · 发表于 2008-9-17 14:19:06

在业务模型/协同系统/文档/关联/文档关联信息/文档关联网格的双击事件
procedure TRELEVANCYGRIDWXG.DataGridDblClick(Sender: TObject);
begin
  Forms.Screen.Cursor:=-11;
  try
actOpenUpdate(actOpen);
  if actOpen.Enabled then
actOpenExecute(actOpen);
finally
  Forms.Screen.Cursor:=-0 ;
  end;
end;

jiahaiming · 发表于 2008-9-17 14:23:13

单步调试执行，看看finally后面的语句是否执行了

rzport_lq0 · 发表于 2008-9-18 09:21:32

现在可以了，结贴吧

		自动登录	找回密码
密码			立即注册