怎样显示splash窗口?

Question

begin
  Application.Initialize;
  Application.Title := '软盘上报数据处理系统';
  Application.CreateForm(TFFlash, FFlash);
  FFlash.Show;//flash窗体
  FFlash.Repaint;
  sleep(1000);
  Application.CreateForm(Tdm1, dm1);//数据模块
  FFlash.hide;
  FFlash.free;  Application.CreateForm(TFlogIn,FlogIn);//登陆窗体
  FLogIn.ShowModal;
  if FLogIn.ModalResult = mrcancel then Halt;
  FLogIn.Hide;
  FLogIn.Free;  Application.CreateForm(TForm1,Form1);//主窗体
  Application.Run;
end.在dpr中写入如上即可。

Answer 1

这样一来,mainform不就变了么??

Answer 2

没办法你只能先建军mainform,然后再建FFlash,再show,update,Flogin.Create,showmodal

Answer 3

你的意思是吧tsplash作为avilable form?

Answer 4

方法一：调用Showmodal函数来实现。Showmodal方式使一个窗口为激活窗口， 和Show相似，但它令窗口模式化。现举一例说明：
⒈开始一个新工程。给表格起名为MainForm,MainForm的单元起名为Main, 工程文件起名为Test。
⒉在MainForm中插入一个Button部件，将其Caption属性设为“关闭”，为该部件的OnClick事件创建一个过程，并在过程的begin和end之间插入Close语句。
⒊在应用程序添加一个表格，将这个表格起名为MoveForm，MoveForm 的单元起名为Move。
⒋为便于演示，在MoveForm中插入一个Label部件，设置其Caption 属性为“欢迎进入本系统”。
⒌建立两个表格之间的关联。在Unit Main的 implementation 中加入语句 uses move;
再为MainForm创建OnActivate事件。
procedure TMainForm.FormActivate(sender:TObject);
begin
MoveForm.Showmodal;
end;
⒍从Component模板的System类别中选择一个计时器（Timer），添加入 MoveForm 表格中，设置其Interval属性为3000（可根据需要自定义），再为其OnTimer事件添加语句
close；
加入一个Timer部件目的是用以控制闪现窗口显示时间。在此，MoveForm显示了3秒钟后关闭，主窗口MainForm自动被激活。
⒎编译、运行程序，就能得到延迟为3秒的闪现窗口。
方法二：你可通过修改工程文件中的源代码来实现，这在Delphi 的编程中是很少见的。现举一例具体说明：
前四步同方法一。
⒌选择View/Project Manager，击Option按钮，选择结果Project Option 对话底部的Forms页栏目。注意，MainForm和MoveForm是在Auto-create forms 列表中。选择MoveForm并击右键头按钮，把这个表格移到 Available forms 。 所有的
Delphi表格通过缺省方式自动在内存中建立， 因此它们要消耗内存和系统资源。在类似这里（程序运行时创建一个表格）的情况下， 你应该将表格从自动创建列表格中去掉。
⒍下一步修改工程的源代码。选择View/Project Source，修改begin和end之间的
语句如下：
程序清单Test.Dpr
program Test
uses
forms,
Main in ’MAIN.PAS’{MainForm},
Move in ’Move.PAS’{MoveForm}{$R *.RES}begin
MoveForm:=TMoveForm.Create(Application);{Create创建闪现窗口对象}
MoveForm.Show;
MoveForm.Update;
Application.CreateForm(TMainForm,MainForm);
MoveForm.Hide;
MoveForm.Free;{Free从内存中释放对象}
Application.Run;
end.
　　第一条语句创建了对象，该对象存在内存中，但还不能看见， 为了让它出现并更 新它的内容，调用对象的Show和Update成员函数：Show和Update。当闪现窗口使用完后，用Hide函数将它隐藏起来，然后用Free函数释放它所占据的内存。