或许使用一下动态的鼠标,譬如会翻转的漏斗之类的。找到了以后替换窗体的cursor即可。
又或者使用progressbar

解决方案 »

  1.   

    用ADO对象Connection的方法Execute异步执行不就行了
      

  2.   

    用ADO对象Connection的方法Execute异步执行不就行了
      

  3.   

    写ADO的OnFetchProgress方法
    procedure TForm1.ADODataSet1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
    begin
      Caption := 'Percent complete: ' +
        IntToStr(Trunc(Progress / MaxProgress * 100)) + '%';
      Application.ProcessMessages;
    end;
      

  4.   

    我是用的BDE 连接数据库,该如何作?
      

  5.   

    可以用个TTimer组件,不过效果不佳。我以前做过多线程的,总觉得效果不够理想!一开始要等一段时间进度条才能有更新。