请问Delphi的ProgressBar如何使用？

Question

我查了不少东西，可是找不到ProgressBar的用法，各位有没有调用的源代码？

Answer 1

procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
end;

Answer 2

一般使用Timer控件改变进度位置就可以了，如ProgressBar1.Position:=50 !
但是又很多情况下Timer就不起作用了，只好用多线程！
多线程进行复杂的程序，主线城修改进度位置

Answer 3

可以用Timer。记得在费时的函数代码中，添加Application.ProcessMessage调用;
例如:for i:=0 to 10000 do
for j:=0 to 10000 do
begin
  ......
  Application.ProcessMessage;  //使应用程序有机会更新界面。
end;