两个窗口显示问题

[amartapple]

一个数据库程序有两个form,Form1为登陆窗口,Form2为管理窗口,现在的情况是Form1中输入正确登陆信息后显示Form2,可是由于Form2要联接好几个数据库,所以加载速度很慢,这是我的代码

procedure btOK.Click
begin
Form1.hide;
Form2.show;
end;

现在我想这样显示
在Form1中放一个进度条
procedure btOK.Click
begin
if Form2是否加载完成 then
Form2.show
else
进度条



如果有别的方法,也请跟贴

[Danphel]

在工程文件里可以这样：

Application.Initialize;
Form1:=TForm1.Create(Application);
Form1.Show;
Form1.update;
Application.CreateForm(TForm1,Form1);
Form2.Show;
Form1.Hide;
Form1.free;
Application.run;

[fhuibo]

up