问题详情

给你个实例: 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载入完成

世捷 2013-08-15

• 3
• 0
• 0

评  论