如何制作系统的启动画面?(30分)

  • 主题发起人 主题发起人 wtang
  • 开始时间 开始时间
W

wtang

Unregistered / Unconfirmed
GUEST, unregistred user!
做了一个信息系统,想在系统启动时出现一提示画面,请教!
 
这样的技巧文章很多
源码也可以凑到
http://tingweb.363.net看看
 
修改Project Source(如:test.dpr)
FaceForm := TFaceForm.Create(Application);//创建启动画面窗体
FaceForm.Show;//显示
FaceForm.Update;//刷新
Application.Initialize;
Application.Title := '合格证管制程序';
Application.CreateForm(TMainForm, MainForm);
FaceForm.Hide;//隐藏
FaceForm.Free;//释放
Application.Run;
 
没啥好说了,楼上都说差不多了,就加一点:
把你要显示的Form.FormStyle设为fsStayOnTop
把最大化最小化系统按钮都关掉

 
BorderStyle使用对话框方式,FaceForm设置成无边框就没有Title栏了,代码看上面的。
 
同意reboot.
 
多人接受答案了。
 
后退
顶部