[代码]创建登录闪现窗体

显示登陆窗体前加载一个动态框,如正在载入资源之类的,内容自己定义吧。

  Application.Initialize;
  Form2:=TForm2.Create(Application);{Create创建闪现窗口对象}
  Form2.Show;
  Form2.Update;
  Application.CreateForm(TForm1, Form1);
  Sleep(1000);
  Form2.Hide;
  Form2.Free;{Free从内存中释放对象}
  Application.Run; 
分享到: