关于DELPHI BDE TQUERY问题

Question

Tquery使用ODBC数据源，连接informix数据库，当执行query1.open时，鼠标形状自动改为crSQLWAIT，有什么办法使执行语句时鼠标形状不改变？试过执行之前加语句Screen.Cursor:=CrDefalt不起作用

Answer 1

function ExecuteSQL(SQLString:String):integer;
//执行SQL语句
begin
  Result:=-1;
  if not Assigned(MainDMForm) then exit;
  screen.Cursor:=crDefault;
  try
    with MainDMForm do
    begin
      CNMain.Errors.Clear;
      QRMain.Close;
      QRMain.SQL.Clear;
      QRMain.SQL.Add(SQLString);
      Result:=QRMain.ExecSQL;
    end;
  except
    //记录错误到列表
    RecordErrors;
  end;
  
end;

Answer 2

改了它。
Screen.Cursors[crSQLWait] := LoadCursor(hInstance, 'MySQLWait')MySQLWait是你用来替换的光标的资源名称。