在主窗体的OnCreate里写 Form := TFormSplash.Create; .... Form.Free; 想延时就在里面加个循环
欢迎窗体可以不是mdi窗体的子窗体
假设form2是欢迎界面,在form2上放一个timer1,设置timer1的interval熟悉为4000,enable为true,在timer1的OnTimer事件中把timer1的enable设为false。 接着在工程项目文件dpr添加下列代码: form2:=TForm2.Create(Application); form2.Show; form2.Update; while form2.Timer1.Enabled do Application.ProcessMessages;..... Application.run
Form(界面) Create
Form(界面) ShowModal
创建了就要showmodal出来就可以了
不过顺序很重要
Form := TFormSplash.Create;
....
Form.Free;
想延时就在里面加个循环
接着在工程项目文件dpr添加下列代码:
form2:=TForm2.Create(Application);
form2.Show;
form2.Update;
while form2.Timer1.Enabled do
Application.ProcessMessages;.....
Application.run