大家是怎样做启动画面的

Question

大家是怎样做启动画面的

Answer 1

启动画面很简单，在工程文件主窗体显示前执行启动画面.{$R *.res}begin
  Application.Initialize;
  FrmFace := TFrmFace.Create(Application); {建立徽标Form}
  Frmface.AlphaBlend := false;
  FrmFace.Show; {显示徽标Form}
  FrmFace.Update; {重画徽标Form，确保其中的图片被显示出来}
  Application.CreateForm(TFrmMain, FrmMain);
  Frmface.AlphaBlend := true;
  Frmface.Update;
  while frmface.AlphaBlendValue > 15 do
    frmface.AlphaBlendValue := frmface.AlphaBlendValue - 5;
  FrmFace.Hide; {隐藏徽标Form，使主Form显示出来}
  FrmFace.Free; {释放徽标Form占用的资源}
  Application.Run;
end.

Answer 2

呵呵   还有个初级方法，单独建立一个Form，当你的主程序完全启动起来后让这个Form消失就可以了，和Flash里面的做法有点像~~~~~~~~~~~~~~
如果程序小的话，这个窗口一闪而过~~~~~~~~~~~

Answer 3

to u2m
FrmFace 是指自己做的界面吧
to baisha178
能不能详细讲一点的

Answer 4

//我工程文件
program rsgl;uses
  Forms,
  mainu in 'Mainu.pas' {main},
  logu in 'LOGU.PAS' {log},
  datau in 'DATAU.PAS' {data},
  flashfmu in 'FLASHFMU.PAS' {flashfm},
  emplistu in 'EMPLISTU.PAS' {emplist},
  empoweru in 'EMPOWERU.PAS' {empower},
  kxxwhu in 'KXXWHU.PAS' {kxxwh},
  aboutu in 'ABOUTU.PAS' {about},
  select in 'SELECT.PAS' {selectfrm},
  chgpwdu in 'CHGPWDU.PAS' {chgpwd},
  desk in 'desk.pas' {deskfrm},
  zxdc_mcu in 'ZXDC_MCU.PAS' {zxdc_mx},
  dwzcu in 'DWZCU.PAS' {dwzc},
  ryda in 'ryda.pas' {rydafrm},
  js in 'js.pas' {jsfrm},
  rybd in 'rybd.pas' {rybdfrm},
  lvli in 'lvli.pas' {lvlifrm},
  gzbwh in 'gzbwh.pas' {gzbwhfrm},
  kmsz in 'kmsz.pas' {kmszfrm},
  kqb in 'kqb.pas' {kqbfrm},
  kaoqin in 'kaoqin.pas' {kaoqinfrm},
  rdjjfz in 'rdjjfz.pas' {rdjjfzfrm},
  jiangli in 'jiangli.pas' {jianglifrm},
  cc in 'cc.pas' {chengchufrm},
  cjk in 'cjk.pas' {qtxxfrm},
  func in '..\..\vcl\func\FUNC.PAS',
  zcpd in 'zcpd.pas' {zcpdfrm},
  px in 'px.pas' {pxfrm},
  Unit2 in 'Unit2.pas' {txlfrm},
  setprint in 'SETPRINT.PAS' {printsetfrm};{$R *.res}
  var i:integer;
begin
  flashfm:=Tflashfm.create(application);//建立徽标Form
  flashfm.show;
  flashfm.Update;//显示徽标Form
  Application.Initialize;
  Application.Title := '人事管理';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(Tlog, log);
  Application.CreateForm(Tdata, data);
  Application.CreateForm(Tflashfm, flashfm);
  Application.CreateForm(Templist, emplist);
  Application.CreateForm(Tempower, empower);
  Application.CreateForm(Tkxxwh, kxxwh);
  Application.CreateForm(Tabout, about);
  Application.CreateForm(Tselectfrm, selectfrm);
  Application.CreateForm(Tchgpwd, chgpwd);
  Application.CreateForm(Tdeskfrm, deskfrm);
  Application.CreateForm(Tzxdc_mx, zxdc_mx);
  Application.CreateForm(Tdwzc, dwzc);
  Application.CreateForm(Trydafrm, rydafrm);
  Application.CreateForm(Tjsfrm, jsfrm);
  Application.CreateForm(Trybdfrm, rybdfrm);
  Application.CreateForm(Tlvlifrm, lvlifrm);
  Application.CreateForm(Tgzbwhfrm, gzbwhfrm);
  Application.CreateForm(Tkmszfrm, kmszfrm);
  Application.CreateForm(Tkqbfrm, kqbfrm);
  Application.CreateForm(Tkaoqinfrm, kaoqinfrm);
  Application.CreateForm(Trdjjfzfrm, rdjjfzfrm);
  Application.CreateForm(Tjianglifrm, jianglifrm);
  Application.CreateForm(Tchengchufrm, chengchufrm);
  Application.CreateForm(Tqtxxfrm, qtxxfrm);
  Application.CreateForm(Tzcpdfrm, zcpdfrm);
  Application.CreateForm(Tpxfrm, pxfrm);
  Application.CreateForm(Ttxlfrm, txlfrm);
  Application.CreateForm(Tprintsetfrm, printsetfrm);
  flashfm.Close;//关闭徽标Form
  flashfm.Free;
  log.showmodal;//显示登录窗口
  if log.ModalResult=1 then 
  Application.Run //登录成功运行程序
  else //如果登录失败关闭程序释放资源
     begin
       for  i :=screen.FormCount - 1 downto 0 do
       begin
       screen.Forms[i].close;
       screen.Forms[i].free;
       end;
       Application.Terminate;
     end;
end.

Answer 5

to qwertyasd:
个人意见：你这样的代码不是很好，我不是指显示启动窗体的代码

Answer 6

1、首先将form1的borderstyle属性设为bsnone，在form1上放一个timer控件
2、在program unit单元中写如下：
begin
  Application.Initialize;
  form1 := Tform1.Create(Application); 
  form1.AlphaBlend := false;
  form1.Show; 
  form1.Update; 
  Application.CreateForm(TFrmMain, FrmMain);
  form1.AlphaBlend := true;
  form1.Update;
  while form1.AlphaBlendValue > 15 do
    form1.AlphaBlendValue := form1.AlphaBlendValue - 5;
  form1.Hide; 
 form1.Free; 
  Application.Run;
end.
3、在frmmain的oncreate事件中写入：
sleep(3000);
还有哪不明白，给我email:
[email protected]
或发短消息

Answer 7

to hgxlucky 
    while form1.AlphaBlendValue > 15 do
    form1.AlphaBlendValue := form1.AlphaBlendValue - 5;是什么意思？