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