delphi – 为什么在firemonkey中的form.create之前调用form.show

Question

每个人都知道为什么在Form.shate之前调用Form.show,如果属性Form.visible = true.

我在Delphi XE7和Delphi 10 Seattle(为Windows编译的Fmx表单)中测试过

例如：

procedure TForm1.FormCreate(Sender: TObject);
    var
      i : integer;
    begin
      //break point here is called before if form.visible = false
      i := 0;
    end;

procedure TForm1.FormShow(Sender: TObject);
var
  i : integer;
begin
  //break point here is called before if form.visible = true
  i := 0;
end;
procedure TForm1.FormShow(Sender: TObject);
var
  i : integer;
begin
  //break point here is called before if form.visible = true
  i := 0;
end;

Answer 1

如果主窗体未设置为在设计器中可见,则调用CreateMainForm()将强制窗体在构造完成后可见(因此在OnCreate触发后).

procedure TApplication.CreateMainForm;
var
  I: Integer;
begin
  if FMainForm = nil then
  begin
     // here creating form...
  end;

  if FMainForm <> nil then
    FMainForm.Visible := True;  //** force visible here
end;

否则,窗体的Visible属性在调用TCommonCustomForm.Loaded()期间设置,该窗体在构造过程中由DFM流系统调用,因此当窗体变为可见时触发OnShow.在流式传输DFM之后,直到构造完成后才会调用OnCreate.

最重要的是,您不应该假设何时将执行这些事件.如果您需要控制事情发生的顺序,您需要明确地执行此操作.

delphi – 为什么在firemonkey中的form.create之前调用form.show

解决方法