我不想以时间来控制启动窗体,我想以窗体的加载来确定启动窗体时间。

解决方案 »

  1.   

    能说清楚点吗?????????????也许这样可以
    添加timer 控件
    当窗体启动时, 设置timer.active:=true 
    设置起始时间  然后处理这就是启动的时间
      

  2.   

    就象Delphi的启动一样,当你没有装好多第三方控件,他启动窗口就快一些
    如果装好多第三控件,他启动程序就慢一些,而启动窗口就显示慢一些了是吗。这个也正是我想知道的,学习。。
      

  3.   

    楼主所说,不太实用
    var
      Step:Integer;
    begin
      Application.Initialize;
      Step:=0;
      Application.CreateForm(TForm1, Form1);
      Step:=Step+1;
      Application.CreateForm(TForm2, Form2);
      Step:=Step+1;
      Application.CreateForm(TForm3, Form3);可以这样判断加载窗体的个数,但实际情况中,如果窗体很多,一般情况下,是动态创建,用完释放,可以节省大量资源。自动创建时,当窗体个数在100左右时,在WIN98下很容易崩溃。
    当自动创建时,耗时的操作,主要是在创建数据模块和主窗体等
      

  4.   

    也就是说我不想用timer 控件来确定启动窗体的停留时间。
      

  5.   

    program Project1;uses
      Forms,sysutils,
      Unit1 in 'Unit1.pas' {Form1},
      Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.CreateForm(TForm2, Form2);
      form2.Show;
       // sleep(1000);//中间加载或者系统初始化过程 在主窗口form1加载的时候最好不要写费时代码
      form2.Close;
      Application.Run;
    end.