新手问题-怎么动态改变鼠标光标的形状,就是怎么在执行比较久的过程时让鼠标变成等待状态.

Question

............................................

Answer 1

Screen.Cursor :=  crHourGlass;

Answer 2

Screen.Cursor := crSQLWait;
 try
   .................
 finally
  Screen.Cursor := crDefault;
 end;

Answer 3

把你的代码贴出来看看
Screen.Cursor := crSQLWait;
 try
   .................
 finally
  Screen.Cursor := crDefault;
 end;是可以的啊

Answer 4

screen.cursor := crhourglass;

Answer 5

Screen.Cursor 不会不行的,把你的代码弄出来看看

Answer 6

screen.Cursor:=crHourGlass;
if(Import.ShowModal=mrOk) then
begin
....
可能是开新的窗口把鼠标又改变了,但是新的窗口初始化会很久,怎么办?

Answer 7

Screen.Cursor := crSQLWait;
.....你需要等待的部分......
Screen.Cursor := crDefault;