Question

delphi 怎么使用进度条

就是在一个按钮里面写代码？

比如打开别个窗体 那个 进度条就显示出来了，然后完了 窗体也启动完了！！

怎么写代码 啊？？ 循环吗》？？？
就弄个假的啊！！！ 怎么写

Answer 1

不用循环，你只是要让进度条走完后，别个窗体启动，就用 时钟 组件就可以了。
把 时钟 的interval属性设置为0。
具体代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=200;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position=100 then
begin
timer1.Interval:=0;
form2.Show;
end;
end;

这样当进度条走完以后，窗口2就载入完成了

Answer 2

最简单的方法是
累加进度条，加到100窗体显示
但这是假进度

正确的方法是写多线程加回调函数

窗体加载完了后主程序用用回调函数的结果显示窗体

如果是C#的话就用thread和delagte

Answer 3

DELPHI7中的控件标签WIN32下有一个控件ProgressBar，就是进度条。
通过设置他的POSITION来改变进度值。