Delphi 动态创建TpageControl标签 基于Frame

form1:

 frame3:

效果图:可以基于frame3创建多个相同的tab,且包含所有frame3设定的业务逻辑

 代码也很简单:

uses
  Unit3;

procedure TForm2.Button2Click(Sender: TObject);
var
  NewTab: TTabSheet ;
  frame: TFrame3;
begin
  NewTab := TTabSheet.Create(PageControl1);
  NewTab.PageControl :=  PageControl1;
  NewTab.Caption := '流浪狗';

  frame := TFrame3.Create(NewTab);
  frame.Parent := NewTab;
  frame.Align := alClient;

end;

感谢大佬的指点,学到了个了不起的技能!

标签：PageControl1,TpageControl,NewTab,Frame,TFrame3,动态创建,Create,frame3,frame
来源： https://www.cnblogs.com/yoooos/p/16470864.html