Delphi xe3 Mainform隐藏

Question

我一直试图用hiden主表单启动我的应用程序,但没有运气.它编译和一切,但当我运行它时,我得到运行时错误.当我使用计时器并将其设置为1毫秒然后调用Application.MainForm.Hide它隐藏但它闪烁我不希望这发生

program Project1;
uses
  FMX.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.MainForm.Visible := false;
  Form1.Visible:=false;
  Application.Run;
end.

Answer 1

在FireMonkey应用程序中,自动创建的表单(已创建)和MainForm属性在Application.Run方法中指定.因此导致访问冲突是因为MainForm属性和form1变量是nil.

要访问此类属性,必须先执行该RealCreateForms方法

begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form1);
  Application.RealCreateForms;
  //Application.MainForm.Left:=-Application.MainForm.Width;
  Application.MainForm.Visible:=False;
  Application.Run;
end.