ado在執行過程中，鼠標的形狀改變一下，執行完後又變過來，bde就是這樣的呀。

Question

我看了沒有哪個地方可以設置呀。

Answer 1

自己写呀
screen.cursor:=crsqlwait;完了后
screen.cursor:=crdefault;

Answer 2

session 的一个属性可以设置，而且要在 Open 前使用。

Answer 3

to ： CloneCenter(复制中心) 
我沒有用到session
to ：Hank(星星农场) (
如果系統默認出現我會還會在這裡浪費銀子分，bde是默認出現ado就不出現了呀。

Answer 4

var
oldCursor:TCursor
begin
  oldCursor:=screen.Cursor；
  screen.Cursor:=想要改变的鼠标类型 
...
...
  screen.Cursor：= oldCursor；
end;