不存在的主窗体（自始至终隐藏）

不存在的主窗体（自始至终隐藏）

最近做一个小程序

没有固定的主窗体，流程随机性比较大

所以找寻相应的方案

解决方法如下

 1 program Project1;
 2 
 3 uses
 4   Forms,
 5   Unit1 in 'Unit1.pas' {Form1},
 6   Unit2 in 'Unit2.pas' {Form2};
 7 
 8 {$R *.res}
 9 
10 begin
11   Application.Initialize;
12   Application.MainFormOnTaskbar := True;
13   Application.ShowMainForm := False; // 关闭显示
14   Application.CreateForm(TForm1, Form1);
15   Application.CreateForm(TForm2, Form2);
16   Form2.Show; // 显示相应窗口
17   Application.Run;
18 end.

方法就是这样，比较简单。

转载于:.html