1、放置一个unibutton、在当中的unipanel中放置一个unipagectrol组件,名称为mainp,并新建几个unitabsheet。
2、新建一个uniframe窗体。保存为uabc.pas,frame的name设置成abc。
3、在Main.pas中编写代码。
procedure TMainForm.addpage(nomeFormFrame: TFrame; descFormFrame: string; Fechar: Boolean);
var TabSheet :TUniTabSheet;
FCurrentFrame :TUniFrame;
I :Integer;
begin
mainp.Visible := True;
for I := 0 to
mainp.PageCount - 1 do
with
mainp do
if Pages[I].Caption = descFormFrame then
begin
mainp.ActivePageI