在工程文件.dpr中 Application.Initialize;
FrontForm:= TFrontForm.Create(Application);
FrontForm.Show;
FrontForm.Update;
.....
frontform.hide;
frontform.free;
application.run;
end;
FrontForm:= TFrontForm.Create(Application);
FrontForm.Show;
FrontForm.Update;
.....
frontform.hide;
frontform.free;
application.run;
end;
启动画面放在一个动态创建的窗体里面,在工程文件里加入
uses 启动窗体的单元文件;
var
FrmSplash:TFrmSplash
begin
Frmsplash:=tfrmsplash.create;
frmsplash.show;
frmsplash.update;
//以下是原有内容
application.
application.
application.
//人工加入的
frmsplash.hide;
frmsplash.free;
//以下是原有内容
applicaition.run
..
..