forms - MDI子项在创建时未最大化

Question

我有一个MDI子窗体，该窗体在打开时不会立即最大化。
我可以看到它上的数据网格已创建，然后表单被最大化

我使用以下构造函数创建表单。

Properties:
FormStyle = fsMDIChild
Position = poDefaultPosOnly
WindowState = wsMaximized

constructor TfrmJsContacts.Create(aOwner: TComponent);
begin
  WindowState := wsMaximized;
  inherited Create(aOwner);
  TimerDelay.Enabled := True;
end;

可以这么说，这个问题是视觉问题-一切正常。在最大化表单之前显示该表单似乎是错误的。真正不错的是可以玩AfterShow事件。在这种情况下，我认为这会有所帮助。

Answer 1

MDIChild弹出窗口带有一些动画。

如果MDIChild.Position设置为


poDefaultPosOnly
poDefaultSizeOnly
poScreenCenter
poDesktopCenter
poMainFormCenter
poOwnerFormCenter


顶部和左侧是在创建时计算的

现在假设Top = 300和Left = 400

在on Show的MDIChild现在是MDIParent的一部分，因此

Top = 300和Left = 400现在位于MDIParent中。

表示MDIChild的左上角现在位于MDIParent表单的中间。

使用wsMaximized时，动画从右中到左上显示。

现在使用位置


poDesigned
poDefault


并且将“顶部”和“左侧”设置为0时，将不再显示动画。

constructor TfrmJsContacts.Create(aOwner: TComponent);
begin
  Top  := 0;
  Left := 0;
  WindowState := wsMaximized;
  inherited Create(aOwner);
  ....
end;

在设计模式下，选择 frmJsContacts时，请查看“对象检查器”。


如果属性 WindowState设置为 wsMaximized


您可以在短时间内看到整个表格！

如果更改如下，则可以在短时间内仅看到标题栏，而不是整个表格。


设置，将对象检查器：属性 WindowState设置为 wsNormal。
将代码 WindowState := wsMaximized移到 inherited Create(aOwner)以下。


代码应该喜欢

constructor TfrmJsContacts.Create(aOwner: TComponent);
begin
  Top  := 0;
  Left := 0;
  inherited Create(aOwner);
  WindowState := wsMaximized;
  ....
end;