|
|
简介制作系统闪屏的方法很多,现我说说一种简单,美观的制作方法供参考。
首先:新建一个工程
eg:program Flash_project;
然后:新建一个form改名字为:FlashFm,在delphi主菜单中选择projet项,在projet项中选择options,在弹出的对话框中把FlashFm从Autocreate移到Availableform
第三:按键盘上F7键进入工程文件。
在工程文件中添代码如下:
begin
Application.Initialize;
Flashfm:=TFlashfm.create(application);//创建一个闪屏窗体。
Flashfm.showmodal;//显示窗体
FlashFm.update ;//更新窗体
Application.CreateForm(Tmainfm, mainfm);//系统主窗体
Flashfm.free;//释放窗体资源
Application.Run;
end.
注意:不能随意更改系统代码。 |
|