procedure TForm1.Button1Click(Sender: TObject);
begin
    Screen.Cursor := crSQLWait;
    ADOQRY_MENUS.Close;
    ADOQRY_MENUS.Open;
    Screen.Cursor := crDefault;
end;

引言: Hi:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Screen.Cursor := crSQLWait;
    ADOQRY_MENUS.Close;
    ADOQRY_MENUS.Open;
    Screen.Cursor := crDefault;
end;

於 Query Open 前，先更改游標形狀，執行完後再更改回來 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ---------------------------------- < face="Verdana, Arial, Helvetica"> Fishman大大，您说的方法在其它地方都很好，只是我发现只要用了savedialog这类元件后就不起作用了，光标始终都是尖头状，不会变成漏斗状，不知是什么原因？我的code如下： procedure Tfmxsrbb.SpeedButton4Click(Sender: TObject); begin Screen.Cursor := crSQLWait; if adotable1.active=true then begin if savedialog2.Execute then begin DBGrid2Excel(dbgrid1,savedialog2.FileName); //将dbgrid转为excel end; end; Screen.Cursor := crDefault; end; 多谢！