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

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;