本文整理自网络,侵删。
procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.ExecuteOptions := [eoAsyncFetch];//设为异步读取 end; //ADOQuery的OnFetchProgress事件 procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet; Progress, MaxProgress: Integer; var EventStatus: TEventStatus); begin ProgressBar1.Position := Progress; ProgressBar1.Max := MaxProgress; end; //ADOQuery的OnFetchComplete事件 procedure TForm1.ADOQuery1FetchComplete(DataSet: TCustomADODataSet; const Error: Error; var EventStatus: TEventStatus); begin ProgressBar1.Position := ProgressBar1.Max; ShowMessage('OK'); end;
相关阅读 >>
Delphi 利用thttpclient实现http异步下载
Delphi 以低用户权限启动一个进程.比如vista或者win7中的ie
更多相关阅读请进入《Delphi》频道 >>