远行效果:
实现代码：
procedure TfrmMain.OpenForm(Caption,FormClassName:string);
var
i:integer;
sheet:TUniTabSheet;
begin
for i := 0 to pgeMain.PageCount-1 do
begin
if pgeMain.Pages[i].Caption=Caption then
begin
pgeMain.ActivePageIndex:=i;
exit;
end;
end;
sheet:=TUniTabSheet.Create(Self);
sheet.Closable:=True;
sheet.Caption:=Caption;
sheet.PageIndex:=i+1;
sheet.PageControl:=pgeMain;
FCurrentFrame:=TUniFrameClass(FindClass(FormClassName)).Create(Self);
FCurrentFrame.Align:=alClient;
FCurrentFrame.Parent:=sheet;
pgeMain.ActivePage:=sheet;
end;
---------------------
作者：liaobotao
来源：CSDN
原文：https://blog.csdn.net/liaobotao/article/details/7618737
版权声明：本文为博主原创文章，转载请附上博文链接！
利用uniGUI中的TUniPageControl实现多页面
原文：https://www.cnblogs.com/tc310/p/10857777.html