在delphi中如何做闪屏？

Question

在youproject.dpr文件中写
...
formname:=tformname.create(Self);
formname.update;
application.createform(mainform,tmainform);
....
formname.close;
formnaem.free;
formname:=nil;
application.run;

Answer 1

回复人： tazhch(鸭) (  ) 信誉：100  2002-04-21 12:53:00  得分:0  
 
 
在.dpr文件中写
...
flhform:=Tflhform.create(application);
flhform.update;
...//
flhform.hint
application.createform(mainform,tmainform);
flhform.close;
flhform.free;
application.run;

Answer 2

TO tazhch(鸭)
你先要让它隐藏起来，再进行主窗体的出现；
直接释放就可以了，不用再给NIL了

Answer 3

代码大概就是下面的样子var  
    ShowForm : TForm;
    CurrTime : TsystemTime;
    Sec      : Word;
begin
    ShowForm := TForm.Create( self );
    ShowForm.Show();
    ShowForm.Update;
    GetSystemTime( CurrTime );
    Sec := CurrTime.wSecond + 5;
    while Sec > CurrTime.wSecond + 5 do
    begin
      GetSystemTime( CurrTime );
    end;
    ShowForm.Free;
end;我更喜欢的方式（与修改工程文件相比）！

Answer 4

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  form2:=Tform2.create(nil);
  form2.show;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  form2.free;
  Application.Run;
end.
应该在这里实现。form2为闪屏。