请教 ProgressBar如何 用(30分)

adoquery1.close;
adoquery1.sql.text:='select * from mydata';
adoquery1.open;

我想在显示数据时显示进度条，如何做

看看help
每几条纪录前进,,,,,,,

在adoquery的onFetchProgress事件中
加上代码progressBar.postion:=progress
即可

ADOQuery的采用異步執行方式.
procedure TForm1.Button1Click(Sender: TObject);
begin
ProgressBar1.Position:=0;
with ADOQuery1 do
begin
Close;
Prepared:=True;
Open;
end;
end;

procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.Max:=MaxProgress;
ProgressBar1.Position:=Progress;
end;

多人接受答案了。