请朋友帮个小忙！(50分)

偶在做欢迎界面的时候，***总是一闪而过。我用Timer控制也不罩。
我日。气死我了，呵呵。说到这还真不好意思。。偶还是个新手，米办法呀。。
还请同志们帮忙解决一下/呵呵。。谢了。
Project 中的代码如下：
begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);
Form2.Hide;
Form2.Free;
Application.Run;
end.

那要几闪而过呢,呵呵

呵呵。。楼上的兄弟见笑了，敢问谁家的欢迎界面是一闪而过。
哪个不都是停留一定的时间。然后再消失。
哎，末办法呀，小弟能力有限。还请那位朋友相住啊。

一闪而过那证明楼主的程序效率高,难道你非要将你的闪现界面停留一段时间才继续吗?
这样子吧,你在form2.update下面加sleep(100)

你给程序中加个空的循环，就可以了。

加个sleep就行了吧

to hongxing_dl
呵呵。。让你见笑了，不过，用slee好象还不罩。
不能识别Sleep()。缘何？看来小弟还差的远啊。哎。

你可以在 Form2中加个时钟，让它做个延时，具体时间看你需要而定

to szqhebei.
可能是小弟不才，用了 timer事件写不好，写了还不罩。
可以给出这段代码吗？谢谢。。

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
Unit3 in 'Unit3.pas' {Form3},
Unit4 in 'Unit4.pas' {MainFrm},
Unit5 in 'Unit5.pas' {Form5},
Unit6 in 'Unit6.pas' {Form6},
Unit8 in 'Unit8.pas' {Form8},
Unit9 in 'Unit9.pas' {Form9},
Unit10 in 'Unit10.pas' {Form10},
Unit12 in 'Unit12.pas' {Form12},
Unit13 in 'Unit13.pas' {Form13},
Unit11 in 'Unit11.pas' {Form11},
Unit7 in 'Unit7.pas' {Form7},
Unit14 in 'Unit14.pas' {Form14},
Unit15 in 'Unit15.pas' {Form15},
Unit16 in 'Unit16.pas' {Form16},
Unit17 in 'Unit17.pas' {Form17},
Unit18 in 'Unit18.pas' {Form18},
Unit19 in 'Unit19.pas' {Form19},
Unit21 in 'Unit21.pas' {Form21},
Unit22 in 'Unit22.pas' {Form22},
Unit23 in 'Unit23.pas' {Form23},
Unit25 in 'Unit25.pas' {Form20},
Unit24 in 'Unit24.pas' {Form20},
Unit26 in 'Unit26.pas' {Form26},
Unit27 in 'Unit27.pas' {Form27},
Unit28 in 'Unit28.pas' {Form28},
Unit29 in 'Unit29.pas' {Form29},
Unit30 in 'Unit30.pas' {Form30};

{$R *.res}

begin
Application.Initialize;
Application.Title := '企业后勤管理系统';
Form30 := TForm30.Create(Application);
Form30.Show;
Form30.Update;

Application.CreateForm(TDataModule2, DataModule2);
Application.CreateForm(TMainFrm, MainFrm);
Form30.Free;
Application.Run;
end.

或者:
program ydmis;

uses
windows,
Forms,
main in 'main.pas' {Frm_main},
dl in 'dl.pas' {Frm_dl},
yhgl in 'yhgl.pas' {frm_yhgl},
changepawd in 'changepawd.pas' {Frm_changepawd},
adduser in 'adduser.pas' {Frm_adduser},
zcxg in 'zcxg.pas' {Frm_zcxg},
ygzbxxxr in 'ygzbxxxr.pas' {frm_ygzbxxsr},
start in 'start.pas' {frm_start},
gzzmxg in 'gzzmxg.pas' {Frm_gzzmwh},
zwxg in 'zwxg.pas' {Frm_zwxg},
ygzbxxwh in 'ygzbxxwh.pas' {frm_ygzbxxwh},
llygzzxx in 'llygzzxx.pas' {Frm_llygzbxx},
ygzlcx in 'ygzlcx.pas' {frm_ygzlcx},
pub in 'pub.pas',
cp in 'cp.pas' {frm_cp},
yggzjgtz in 'yggzjgtz.pas' {frm_yggzjgtz},
gzdx in 'gzdx.pas' {frm_gzdx},
rsqkqxfs in 'rsqkqxfs.pas' {frm_rsqkqxfs},
bmxg in 'bmxg.pas' {Frm_bmxg},
about in 'about.pas' {frm_about},
rybb in 'rybb.pas' {frm_ygbb};

{$R *.RES}

begin
Application.Initialize;
frm_start:=tfrm_start.Create(application);
frm_start.show;
frm_start.update;
Application.Title:='株洲移动人事工资管理系统';
Application.CreateForm(TFrm_main, Frm_main);
sleep(3000);
frm_start.Hide;
frm_start.free;
Application.CreateForm(TFrm_dl, Frm_dl);
Application.Run;
end.

begin
Application.Initialize;
Form2 := TForm2.Create(Application);
Form2.Show;
Form2.Update;
Application.CreateForm(TForm1, Form1);<----只有Create.沒有show出來..
Form2.Hide;
Form2.Free;
Application.Run;
end.

呵呵。问题解决。谢谢各位兄弟的关照！！