以两种不同的方式显示表单

Question

我以两种不同的方式显示表单。第一个作为页面控件标签表的子项，如下所示：

myform := Tmyform.Create(<tab sheet of page control>);
myform.Parent := <tab sheet of page control>;
myform.Align := alClient;
myform.BorderStyle := bsNone;

myform.Visible := true;

此标签始终可见。

我第二次将它显示为这样的普通形式：

myform := Tmyform.Create(nil);
myform.ShowModal;

我这样做是因为我需要显示相同的表单，其中一些可视控件可见并且第二次隐藏。

我的问题我现在注意到，每次使用第二种方法打开表单时，应用程序都会消耗更多内存，如果我在关闭事件中使用action := cafree，当我在标签页打开时尝试关闭应用程序时会遇到访问冲突打开所以我应该如何在不使用具有相同控件的两个表单的情况下解决这个问题？

我用的是 Delphi XE5

Answer 1

TForm 从未打算或设计为嵌入到其他控件中。请改用TFrame，它是专门为此目的而设计的。

var
  frame: TMyFrame;
begin
  frame := TMyFrame.Create(TheTabSheet);
  frame.Parent := TheTabSheet;
  frame.Align := alClient;
  frame.Visible := true;
end;

var
  form: TForm;
  frame: TMyFrame;
begin
  form := TForm.CreateNew(nil); // yes, a blank TForm
  try
    form.Width := ...;
    form.Height := ...;
    form.Caption := ...;
    frame := TMyFrame.Create(form);
    frame.Parent := form;
    frame.Align := alClient;
    frame.Visible := true;
    form.ShowModal;
  finally
    form.Free;
  end;
end;