0

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

我试图创建 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;

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

4

0 回答 0