我是一个初学者,请问在DELPHI中,如何创建两个窗体,要求运行时首先只显示第一个窗体再过一小段时间后,再只显示第二个窗体,就象我们常见的启动窗体和登录窗体。

解决方案 »

  1.   

    Delphi默认第一个显示的窗体是主窗体修改dpr文件,把需要第一个显示的窗体先创建、显示,然后再创建其他的窗体,当其他的都准备就绪后,就把第一个free掉
      

  2.   

    要在楼上说的基础上加个timer控件吧?
      

  3.   

    在项目文件中,我新建两个窗体,属性都没有改动,想让第一个窗体显示5秒后,再显示第二个窗体。对dpr文件的修改如下:
    但运行有错。请问如何修改。
    begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Form1:=TForm1.Create(application);
      Form1.Show;
      Form1.Update;
      Sleep(5000);
      Form1.Free;
      Application.CreateForm(TForm2, Form2);
      Form2.ShowModal;
      Form2:=TForm2.Create(application);
      Application.Run;
    end.
      

  4.   

    你用timer
    你的代码有问题
      

  5.   

    错误信息是:
    Undeclared identifier"Sleep"
    我添加了一个timer控件。
    不知道是怎么回事?
      

  6.   

    代码应怎样改?
    添加timer控件后,还是设置哪些属性?
      

  7.   

    If you wanna use 'Sleep',you need add 'Windows' to uses list.
      

  8.   

    program Project1;uses
      Forms,
      Windows,
      Unit1 in 'Unit1.pas' {Form1},
      Unit2 in 'Unit2.pas' {Form2};{$R *.res}
    begin
      Application.Initialize;
      Form2 := TForm2.Create(nil);
      Form2.Show;
      Form2.Update;
      Application.CreateForm(TForm1, Form1);
    //  Application.CreateForm(TForm2, Form2);
      Sleep(5000);
      Form2.Free;
      Application.Run;
    end.
      

  9.   

    其实Sleep给用户的印象不好的,程序好像死掉一样的等5秒一般Sleep不要,并不一定就非让Form2在这儿停5秒这儿在Form2显示后,后面继续初始化其他必要的东西如果初始化都Ok了,则Form2释放,系统正常运行呵呵
      

  10.   

    请问代码改为:begin
      Application.Initialize;
      Form2 := TForm2.Create(nil);
      Form2.Show;
      Form2.Update;
      Application.CreateForm(TForm1, Form1);
    //  Application.CreateForm(TForm2, Form2);
      Sleep(5000);
      Form2.Free;
      Application.Run;
    end.
    那还要增加TIME控件吗?