我想问一个progressbar控件的使用问题。

Question

在每创建一个form的时候设置进度条的位置

Answer 1

这么多Form啊，除了主窗体，除它都动态创建吧。

Answer 2

嘻嘻，
begin
  Application.Initialize;
  welcome:=twelcome.create(application);
  progressbar.Enabled := True;
  for I := 0 to progressbar.Max do 
  begin
   Inc(progressbar.Position);
   {TODO}
  end;
  welcome.Show;
  welcome.Update;
  Application.Title := '企业及时通';
  Application.CreateForm(Tdenglu, denglu);
  Application.CreateForm(TDataModule7, DataModule7);
  ...不要自动创建啊，你自己在调用时再创建；
Ctrl + shift + F11,看一看；

Answer 3

你的程序需要优化！如果所有的窗口都是自动创建的是非常消耗系统资源的，建议动态创建窗口，现在的机器都比较快，一般不会有什么延迟的！你的问题可以这样解决：
ProgressBar.StepIt;
Application.CreateForm(Tdenglu, denglu);
ProgressBar.StepIt;
Application.CreateForm(TDataModule7, DataModule7);
...

Answer 4

还是应当在每次创建一个form的时候将progressbar的位置设置一次。至于楼上所说的除了将程序执行时间延长之外，没有可取之处。