如何改变Tquery控件查询时显示的光标

Question

在执行大量数据查询的时候,系统将显示一个沙漏的光标，如何改成其它光标?

Answer 1

变成沙漏： screen.cursor:=crhourglass; 还原: screen.cursor:=crdefault;

Answer 2

screen.cursor:=crhourglass;
Query1.Close ;
Query1.SQL.CLear ;
Query1.SQL.Add(SQL_STR) ;
Query1.Open ;
screen.cursor:=crdefault;

Answer 3

在你点击查询按钮之后，就将screen.cursor:=crdefault就可以了。

Answer 4

var
tempCursor:TCursor;with query do
begin
  tempCursor:=screen.cursor;
  screen.cursor:=crhourglass;
  ...
  ...
  ...
  screen.cursor:=tempCursor;
end;

Answer 5

在用Tbatchmove控件导入数据时,始终显示沙漏的光标,screen.cursor:=crdefault不起作用