鼠标光标形状竟不改变~~(50分)

  • 主题发起人 主题发起人 arewen
  • 开始时间 开始时间
A

arewen

Unregistered / Unconfirmed
GUEST, unregistred user!
;try
Cursor:=crSQLWait;
LgbFrm:=TLgbFrm.Create(Application);
LgbFrm.ShowModal;
finally
LgbFrm.Free;
Cursor:=crDefault;
end;
 
try
Cursor:=crSQLWait;
LgbFrm:=TLgbFrm.Create(Application);
LgbFrm.Cursor := crSqlWait;
LgbFrm.ShowModal;
finally
LgbFrm.Free;
Cursor:=crDefault;
end;
 
我刚才试过了,不行啊~~
并且我看了上面的Code,意思好象是Form的鼠标光标变了。
我可能没有讲清楚,我要在Form建立期间变化,显示以后光标正常,就是让用户感觉到
正在打开Form啊~~
 
;try
Cursor:=crSQLWait;
LgbFrm:=TLgbFrm.Create(Application);
LgbFrm.ShowModal;
Cursor:=crDefault; //我想应该换到这里来,但还是不行啊~~
finally
LgbFrm.Free;
end;
 
改变屏幕变量screen的光标
try
screen.Cursor:=crSQLWait;
LgbFrm:=TLgbFrm.Create(Application);
screen.Cursor:=crDefault;
LgbFrm.ShowModal;
finally
LgbFrm.Free;
end;
 
用Application得
 
接楼上
然后,别在LgbFrm.oncreate里面写太多
 
来晚了呀,
同意terry_lzs
 
多人接受答案了。
 
后退
顶部