窗体启动画面

Question

软件启动画面如何制作，同时如何显示下一个住窗体和控制启动画面的显示时间

Answer 1

Application.Initialize;
  Form_shan:=TForm_shan.Create(Application);//启动画面的创建
  Form_shan.Left:=(Screen.Width-Form_shan.Width) DIV 2;
  Form_shan.Top:=(Screen.Height-Form_shan.Height) DIV 2;
  AnimateWindow(Form_shan.Handle,2000,AW_CENTER);//启动画面的动画显示
  Application.Title := '福思特系列软件－青峰健身系统';
  Application.CreateForm(TFrm_main, Frm_main);
  Application.CreateForm(TDM_main, DM_main);
  Application.CreateForm(TFrm_system_PreView, Frm_system_PreView);
  Application.CreateForm(TFrm_system_printsetup, Frm_system_printsetup);
  Form_shan.Free;
  Application.Run;

Answer 2

program test;uses
  Forms,
  main in 'main.pas' {Form1},
  pass in 'pass.pas' {Form2},
  start in 'start.pas' {Form3},
  dm in 'dm.pas' {dm1: TDataModule},
  add in 'add.pas' {Form4},
  modify in 'modify.pas' {Form5},
  query in 'query.pas' {Form6},
  adduse in 'adduse.pas' {Form7},
  modifyuse in 'modifyuse.pas' {Form8},
  about in 'about.pas' {Form9},
  ip in 'ip.pas' {Form10},
  addmoney in 'addmoney.pas' {Form11};{$R *.res}begin
  form3:=tform3.Create(application);//启动窗体
  form3.Show;//启动窗体
  form3.Update;//启动窗体
  Application.Initialize;
  Application.Title := '...';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
.
.
.
  form3.Close;//启动窗体
  Application.Run;
end.显示时间就不知道了。

Answer 3

同意  ywwr(因为) 
我也是这样做的

Answer 4

一般就是先创建启动窗体，然后创建主窗体等，等主窗体创建完后就释放启动窗体。Application.CreateForm(TForm1, Form1);//主窗体用这种方式创建form1:=tform1.Create(application);    //启动窗体用这种方式创建

Answer 5

program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};//启动画面{$R *.res}
var
i: integer;
begin
  Application.Initialize;
  Application.Title := '*********图象数据管理平台';
  Application.CreateForm(TForm1, Form1);
  Form2:= TForm2.Create(Form2);
  Form2.Show;
  i:=0;
  for i:= 0 to 19999999 do
   form2.Update;
   Form2.Hide;
   Form2.Free;
  Application.Run;
end.这是一个勺办法，也可以在FORM2上加Ttimer 空件使用ONTIMER进行控制。
时间的显示问题也可以解决了。不过不管使用什么方法，在PROJECT-》OPTIONS都得把启动也面的FORM设置为available form.

Answer 6

如果要延时，用sleep()不就行了

Answer 7

////////////////////////////////////////////////////可行方法如下：调用sleep过程完行时间延时
program splashProject;uses
  SysUtils,  //调用sleep过程要用这个单元
  Forms,
  unitMain in 'unitMain.pas' {FrmMain},
  unitSplash in 'unitSplash.pas' {frmSplash};{$R *.res}
// var
// i:integer;
begin
  Application.Initialize;
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
 // i:=0;
 // for i:= 0 to 100000000 do
  frmSplash.Update;
  sleep(4000); //4000表示4秒，他的单位为毫秒
  Application.Title := 'this is a splash Form!!!!!';
  Application.CreateForm(TFrmMain, FrmMain);
  frmSplash.Hide;
  frmSplash.Update;
  frmSplash.Free;
  Application.Run;
end.
////////////////////////////////////////////