program Project1;uses
Forms,
SysUtils,
main in 'main.pas' {frmmain},
AdTSel_My in 'AdTSel_My.pas' {DeviceSelectionForm_My},
UnitMain in 'UnitMain.pas' {FormMain},
Unit1 in 'Unit1.pas' {SplashForm},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
SplashForm:=TSplashForm.Create(Application);//创建快闪窗体 这是手动添加的代码
SplashForm.Show;//显示快闪
SplashForm.Update;
//以下是延时处理
sleep(3000);
while SplashForm.Button1.Enabled do
Application.processMessages;
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TForm2, Form2);
SplashForm.Hide;//隐藏
Splashform.Free;//释
Application.Run;end.
Forms,
SysUtils,
main in 'main.pas' {frmmain},
AdTSel_My in 'AdTSel_My.pas' {DeviceSelectionForm_My},
UnitMain in 'UnitMain.pas' {FormMain},
Unit1 in 'Unit1.pas' {SplashForm},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
SplashForm:=TSplashForm.Create(Application);//创建快闪窗体 这是手动添加的代码
SplashForm.Show;//显示快闪
SplashForm.Update;
//以下是延时处理
sleep(3000);
while SplashForm.Button1.Enabled do
Application.processMessages;
Application.CreateForm(Tfrmmain, frmmain);
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(TForm2, Form2);
SplashForm.Hide;//隐藏
Splashform.Free;//释
Application.Run;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货