两个窗口显示问题

Question

一个数据库程序有两个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
    进度条如果有别的方法,也请跟贴

Answer 1

在工程文件里可以这样：Application.Initialize;
Form1:=TForm1.Create(Application);
Form1.Show;
Form1.update;
Application.CreateForm(TForm1,Form1);
Form2.Show;
Form1.Hide;
Form1.free;
Application.run;