我想在主程序运行前做一个启动画面,而启动窗体停留的时间要等于所有窗体创建的饿时间等所有的窗体创建完毕,那么启动画面就会消失,但是小弟不知道怎么样才能获得窗体创建的时间!
有没有哪位大哥知道有什么函数可以获得窗体加载的时间!其它的方法也可以!希望各位大哥帮忙,小弟感激不尽!

解决方案 »

  1.   

    不用管时间,可以通过参数来实现
    你在所有窗体创建和系统初始化后,将一个参数变为true
    并在启动界面里用过timer来检查该参数值,只要为true就关闭启动画面即可
      

  2.   

    program Project1;uses
      Forms,
      Unit1 in 'Unit1.pas' {Form1},
      Unit2 in 'Unit2.pas' {Form2}
    //...
      ;{$R *.res}begin
      Application.Initialize;
      with TForm.Create(nil) do try
        Show;
        Update;
        Application.CreateForm(TForm1, Form1);
        Application.CreateForm(TForm2, Form2);
    //...
      finally
        Free;
      end;
      Application.Run;
    end.