DELPHI ..在运行时创建具有相同子控件的多个标签页

时间:2016-08-14 03:06:32

标签: oop delphi multiple-instances tframe

我一直在寻找如何创建多个标签页,其中我创建的每个标签页都包含相同的组件。我了解如何创建新的标签页,但我需要的是制作标签页及其所有子组件。

我试图创建一个TForm实例并将TForm粘贴到标签页中,但只有这些表单附在标签页上。没有他们的孩子组件。

这是我的编程代码:

 procedure TmPenjualan.Button1OnClick(Sender: TObject);
 var
 Tab: TTabSheet;
 FormT: TForm;
 FrameT: TFrame;
 begin
  Tab := TTabSheet.Create(PageControlParent);
  Tab.PageControl := PageControlParent;
  FormT := TForm1.CreateNew(Tab);
  FormT.Parent := Tab;
  FormT.Show;
 end;

如果我错了,请帮我提供具体的示例代码。提前致谢

0 个答案:

没有答案