如何让程序至始至终让鼠标保持正常指针，而不要出现Sql查询时的crHourGlass形状？？

Question

执行SQL语句的时候，默认为crSQLWait，请问这个如何被修改？谢谢！

Answer 1

with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Text:='select * from tablename';
Open;
ShowMessage('ok');
end;
========================================
以上测试时，鼠标指针一直为crDefault啊，我记的是这样啊,呵呵

Answer 2

你用的是bde吧？去session的属性看看吧。
Session.SQLHourGlass:=False;

Answer 3

//ZT : 超级猛料要修改Delphi的那个crSql和crHandPoint难看的光标，有几个方法。1：编译程序之后，用ExeScope之类的软件修改相应的资源。这种方法不能一劳永逸，一旦编译一次，就必须修改。：（2：修改Delphi的默认的资源，这样即使怎样变化，也不会有问题：用Delphi的ImageEditor打开$Delphi$.res，修改那个相应的32761的光标并且存盘即可，其他的类似！同样，如果不需要Delphi默认的那个按钮图标，可以修改Buttons.res，删除所有的即可，这样可以节省6K左右的空间！****************也可以采用下面的方法：在FormCreate中添加如下代码即可：screen.Cursors[-21]:=LoadCursor(0,IDC_HAND);

Answer 4

在程序的project Source 中最开始写 
screen.Cursors[-17]:=screen.Cursors[-19]; 

Answer 5

我用的是BDE，多谢各位的答案，我这就挨个试试

Answer 6

已经解决，用的是fei19790920(饭桶的马甲（抵制日货）) 朋友的办法，人人有份，谢谢大家！