unigui多页签UI框架

最新推荐文章于 2024-07-11 11:50:14 发布

Mr.Gu

最新推荐文章于 2024-07-11 11:50:14 发布

阅读量1.2k

点赞数

文章标签： ui

原文链接：http://www.cnblogs.com/hnxxcxg/p/3819877.html

版权

procedure TMainForm.openForm(Caption, FormClassName: string);
var
i: integer;
sheet: TUniTabSheet;
begin
for i := 0 to page.PageCount - 1 do
begin
if page.Pages[i].Caption = Caption then
begin
page.ActivePageIndex := i;
exit;
end;
end;
sheet := TUniTabSheet.Create(Self);
sheet.Closable := True;
sheet.Caption := Caption;
sheet.PageControl := page;
FCurrentFrame := TUniFrameClass(FindClass(FormClassName)).Create(Self);
FCurrentFrame.Align := alClient;
FCurrentFrame.Parent := sheet;
page.ActivePage := sheet;
end;