我在一个Project中建立了两个Form(Form1、Form2),然后照着下面例程所说的一一做了:
建一个启动封面窗体,假设为Form2,先设置好BorderIcons、BorderStyle、
FormStyle、Position,接着在窗体上加入图片框、文本框,设置好后在菜单里选
Project里的Options,把Form2从Auto-create forms里转到Available forms。再接着
就是按Ctrl+F12键,选Project1,出现工程单元,其内容如下
...
Application.CreateForm(TForm1, Form1);
Application.Run;
..
在Application.CreateForm(TForm1, Form1); 前加入如下语句:
form2:=tform2.create(application);
form2.Show;
form2.Update;
然后在Application.Run;前面加入如下语句:
form2.hide;
form2.free; 但是,按下F9运行后只出现Form1,没有Logo效果,各位大哥请多多指教!
建一个启动封面窗体,假设为Form2,先设置好BorderIcons、BorderStyle、
FormStyle、Position,接着在窗体上加入图片框、文本框,设置好后在菜单里选
Project里的Options,把Form2从Auto-create forms里转到Available forms。再接着
就是按Ctrl+F12键,选Project1,出现工程单元,其内容如下
...
Application.CreateForm(TForm1, Form1);
Application.Run;
..
在Application.CreateForm(TForm1, Form1); 前加入如下语句:
form2:=tform2.create(application);
form2.Show;
form2.Update;
然后在Application.Run;前面加入如下语句:
form2.hide;
form2.free; 但是,按下F9运行后只出现Form1,没有Logo效果,各位大哥请多多指教!
form2.Show;
form2.Update;
sleep(5000);//加这句试试
Application.Title := 'XX系统';
//ÉÁÏÖ´°Ìå
frmLooding:=TfrmLooding.Create(nil);
frmLooding.show;
frmLooding.Update;
.
. Application.Run;
//
form2.hide;
form2.free; 可以不要
+-----------------------------+
| 加上Sleep(3000);,1=1毫秒 |+
+-----------------------------+|
+-----------------------------+
uses sysutils
sleep(2000);是没问题的