设置Delphi窗体执行顺序

{$R *.res}

begin
Application.Initialize;
Form3 := TForm3.Create(Application);
Form3.Show;
Form3.Update;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Form3.Hide;
Form3.Free;
Application.Run;
end.
在工程里view source，将本来的Application.CreateForm(TForm1, Form1)..更改如上。
如果想让启动窗口显示时间长点，在登录窗口的创建里，写上
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while (GetTickCount div 1000)<(currentTime+3) do; //延时效果
end；
然后就是form1登录窗口，登录转到主窗口form2，具体代码很多可以参考的