如何在启动屏显视一进度条?

Question

因为我程式的主窗体比较大,打开时约要10秒左右,所以我想在启动屏中做一进度条,,,
如果用progress进度条来实现,即在生成主窗体时progress一直没动.
我想用timer来实现,但timer好象不起作用.

Answer 1

开始一个新的线程 ， 新线程中 for i ;= 1 to 10 do begin 
  progress.postion = i ; 
  sleep(1000)
end;

Answer 2

你要让它有机会进度啊，并且啊，Repaint

Answer 3

本人的代码如下...  如果按 gflpower(燕赤侠) 的线程方法,应如何改呢? 非常多谢先.begin
  try
    Application.Initialize;
    Application.Title := '机房管理系统';
    startform:=Tstartform.Create(application);
    startform.Show;
    Application.ProcessMessages;
    startform.Update;
    startform.Timer1.Enabled:=true;
    Application.CreateForm(Tmain, main);
    Application.CreateForm(TDataModule1, DataModule1);
    Application.CreateForm(TDataModule2, DataModule2);
    startform.Hide;
  finally
    startform.Free;
    Application.Run;
  end;
end.procedure Tstartform.Timer1Timer(Sender: TObject);
begin
  counts:=counts+1;
  if counts=2 then
  counts:=0;
  if counts=0 then
  begin
    label5.Caption:='...';
  end;
  if counts=1 then
  begin
    label5.Caption:='.........';
  end;
end;

Answer 4

up.....
i want to help!