Question

设置Delphi窗体执行顺序

我想在系统执行时先弹出启动窗体，1，2秒后启动窗隐藏后弹出登录窗体，登录成功后才弹出主窗体！不用在（Project -- Options -- main form ）设置，还有其他方法吗？

Answer 1

{$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，具体代码很多可以参考的

Answer 2

在工程的viewsource里面有很多的Application，把你的启动窗体显示，然后在回到启动窗体代码，再启动窗体设置一个timer，在timer里面写主窗体的显示代码。最好在timer的属性里面先将enabled设置成false，然后在启动窗体的formshow事件里面再把enabled设置成true。