var
tab: TTabSheet;
memo: TMemo;
begin
tab := TTabSheet.Create(self);
tab.Caption := IntToStr(PageControl1.PageCount);
tab.Name := 'TabSheetNew' + IntToStr(PageControl1.PageCount);
tab.PageControl := PageControl1;
memo := TMemo.Create(tab);
memo.Parent := tab;
memo.left := 20;
Memo.Top:= 20;
Memo.Width:= 250;
Memo.Height:= 300;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024