delphi 利用uniGUI中的TUniPageControl实现多页面

实现代码：

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;

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;

推荐分享