作成したすべてのタブシートに同じコンポーネントが含まれる複数のタブシートを作成する方法を探していました。新しいタブシートを作成する方法は理解していますが、必要なのはタブシートとそのすべての子コンポーネントを作成することです。
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;
私が間違っていた場合は、具体的なサンプル コードを教えてください。前もって感謝します