如何用进度条，在线等，TKS！

[yangzhum]

我写了一个查询，查能要一段时间才出结果，我想用一个进度条显示其进度

请问该如何做？TKS！

[老之]

ProgressBar的Position控制进度的位置，Step控制增量，这两个属性是经常用到的。
每完成一部分内容就改变一下Position的值，应该就可以了。

[XBox360]

最主要的就是楼上说的Positon and Step
可以看看BCB的例子（好像有）

[XBox360]

进来才发现这里是DELPHI，走错了……

[ZyxIp]

ProgressBar1 进度条

如果在循环中用 Application .ProcessMessages ;

否则用线程

[qizhanfeng]

ProgressBar1.max:=100;
adoquery1的executeOptions 置eoAsyncFetchNonBlocking为true,其他属性false
在adoquery1的onFetchProgress事件里写


procedure TForm1.ADOQuery1FetchProgress(DataSet: TCustomADODataSet;
Progress, MaxProgress: Integer; var EventStatus: TEventStatus);
begin
ProgressBar1.Position:=Progress*100 div MaxProgress;
application.ProcessMessages;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
with adoquery1 do
begin
close;
sql.text := 'select * from sysobjects,sysobjects a ';
open;
end;
end;