动态添加标签页到页面控件并嵌入表单？

Question

我正在研究一个由页面控件组成的模块.默认情况下,此页面控件(TPageControl)不应该有任何选项卡表(TTabSheet),但在初始化时,它应该动态插入这些页面并在其中嵌入一个表单.

问题在于知道如何将标签页插入页面控件.我该如何创建呢？一旦它被创建,以及每个窗体内的表单,我如何迭代它们来销毁表单？

Answer 1

1.如何动态创建标签页？

procedure TForm1.Button1Click(Sender: TObject);
var
  TabSheet: TTabSheet;
begin
  TabSheet := TTabSheet.Create(PageControl1);
  TabSheet.Caption := 'New Tab Sheet';
  TabSheet.PageControl := PageControl1;
end;

2.如何在表格中嵌入表格？

要在选项卡表内插入表单,只需使用父更改:

Form2.Parent := TabSheet;
Form2.Show;

3.在销毁时,我是否需要手动释放嵌入到标签页中的表单？

不,它足以释放标签页.在情况下,当形成将具有标签纸,或者更精确地说,TWinControl作为其Parent,该父将释放本身时照顾他们的释放.