关于DELPHI BDE TQUERY问题
Tquery使用ODBC数据源，连接informix数据库，当执行query1.open时，鼠标形状自动改为crSQLWAIT，有什么办法使执行语句时鼠标形状不改变？试过执行之前加语句Screen.Cursor:=CrDefalt不起作用 问题点数：50、回复次数：2Top
1 楼darkliu（钢铁工人甲）回复于 2006-03-22 21:54:10 得分 25
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;
Top
2 楼darkliu（钢铁工人甲）回复于 2006-03-22 21:56:18 得分 25
改了它。
Screen.Cursors[crSQLWait] := LoadCursor(hInstance, 'MySQLWait')
MySQLWait是你用来替换的光标的资源名称。Top
