procedure TFrmMain.OpenForm(Caption,FormClassName: String);
var i: Integer; Sheet: TUniTabSheet;
begin
for i:=0 to pcMain.PageCount-1 do
begin
if pcMain.Pages[i].Caption=Caption then
begin
pcMain.ActivePageIndex := I;
exit;
end;
end;
Sheet1 := TUniTabSheet.Create(Self);
Sheet1.Closable := True;
Sheet1.Caption := Caption;
Sheet1.PageIndex := i+1;
Sheet1.PageControl := pcMain;
FCurrentFrame := TUniFrameClass(FindClass(FormClassName)).Create(Self);
FCurrentFrame.Align := alClient;
FCurrentFrame.Parent := Sheet;
pcMain.ActivePage := Sheet;
end;