在youproject.dpr文件中写
...
formname:=tformname.create(Self);
formname.update;
application.createform(mainform,tmainform);
....
formname.close;
formnaem.free;
formname:=nil;
application.run;
...
formname:=tformname.create(Self);
formname.update;
application.createform(mainform,tmainform);
....
formname.close;
formnaem.free;
formname:=nil;
application.run;
解决方案 »
- 如何给TRzTreeView节点的Check赋值?
- QReport能不能做复选框控件
- 使用ShellTreeView遇到的一个很怪的问题!!!
- 求助!大侠们救我!
- 50分求:为edit添加一个ValueFloat属性?
- 还是不理论SQL2000的储存过程。
- DateTimePicker 与 Oracle 里的时间
- 求大虾赐教 delphi 新浪微博登录
- ▲▲▲我发现一个好的工具软件,愿与大家分享
- 我是一名Delphi的菜鸟,现有一个小小的问题向各位前辈请教!哪位可以帮我
- client与server已经通过sockets连接了,但怎样从server传输文件到Client呢?急!!
- delphi的函数怎么学习?有没有比较好的书或者资料?
在.dpr文件中写
...
flhform:=Tflhform.create(application);
flhform.update;
...//
flhform.hint
application.createform(mainform,tmainform);
flhform.close;
flhform.free;
application.run;
你先要让它隐藏起来,再进行主窗体的出现;
直接释放就可以了,不用再给NIL了
ShowForm : TForm;
CurrTime : TsystemTime;
Sec : Word;
begin
ShowForm := TForm.Create( self );
ShowForm.Show();
ShowForm.Update;
GetSystemTime( CurrTime );
Sec := CurrTime.wSecond + 5;
while Sec > CurrTime.wSecond + 5 do
begin
GetSystemTime( CurrTime );
end;
ShowForm.Free;
end;我更喜欢的方式(与修改工程文件相比)!
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
form2:=Tform2.create(nil);
form2.show;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
form2.free;
Application.Run;
end.
应该在这里实现。form2为闪屏。