Delphi - 隐藏的MDI子窗体创建

Question

我的应用程序有很多 mdi 表单，它们是在用户成功登录后创建的。我怎样才能最好地隐藏这个创作过程？它看起来很愚蠢，而且在创建新表单后绘制 mdi 表单需要更长的时间等等。

到目前为止，我已经使用了LockWindowUpdate，它并没有隐藏所有内容，但我想使用启动屏幕来显示创建进度，但我不能使用LockWindowUpdate。

此致 珍妮

Answer 1

要创建不可见的 MDI 子窗体，请将其 Visible 属性设置为 False，此外，您还必须禁用在创建过程中强制显示它们的 VCL 行为。这是由 TCustomForm 的 FormStyle 属性设置器实现的，它将 MDI 子窗体的 Visible 设置为 True。

如果您在对象检查器中设置了FormStyle，那么属性设置器将在表单创建期间被调用，并且表单不会立即显示，而是仅在构造完成后才显示。这允许您通过重写 AfterConstruction() 方法来重置请求以显示表单，如下所示：

procedure TMDIChild.AfterConstruction;
begin
  Exclude(FFormState, fsVisible);
  inherited;
end;

这将创建一个不可见的 MDI 子表单。

要测试这一点，您可以在 IDE 中创建一个新的 MDI 应用程序，重写子表单类中的方法（如上所示），并模拟长初始化：

procedure TMainForm.FileNew1Execute(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 10 do begin
    CreateMDIChild('NONAME' + IntToStr(MDIChildCount + 1));
    Update;
    Sleep(500);
  end;
  for i := 0 to MDIChildCount - 1 do
    MDIChildren[i].Visible := True;
end;

如果没有重写的 AfterConstruction() 方法，它将创建和每半秒显示一个 MDI 子项。使用覆盖的方法，它将在 5 秒的繁忙时间后显示所有内容，这将使您有机会显示启动屏幕。

重要提示：

使用LockWindowUpdate() 减少闪烁或抑制任何屏幕输出错误、错误、错误。 不要这样做，请阅读<有关该主题的 href="http://blogs.msdn.com/oldnewthing/archive/2007/02/22/1742084.aspx" rel="noreferrer">Raymond Chen 文章，了解为什么会这样。

Answer 2

我也遇到过类似的 MDI 儿童闪烁问题。我使用了此提示中的覆盖 AfterConstruction 和 WM_SETREDRAW 消息的组合：
控制 Delphi 中 fsMDIChild 窗口的位置

SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, False, 0);
try
  Child := TChildForm.Create(Self);
  Child.Left := ...;
  Child.Top := ...;
  Child.Show;
finally
  SendMessage(Application.MainForm.ClientHandle, WM_SETREDRAW, True, 0);
  InvalidateRect(Application.MainForm.ClientHandle, nil, True);
end;

一切正常。

Answer 3

试试这个代码，它对我有用

 try
  SendMessage(Application.MainForm.ClientHandle,WM_SETREDRAW,0,0);
  FormChild:=TBaseChildForm.Create(application);
  FormChild.Caption:='Form '+IntToStr(n);
  FormChild.Show;
 finally
  SendMessage(Application.MainForm.ClientHandle,WM_SETREDRAW,1,0);
  RedrawWindow(Application.MainForm.ClientHandle, nil, 0, RDW_FRAME or RDW_INVALIDATE or   RDW_ALLCHILDREN or RDW_NOINTERNALPAINT);
 end;