5,386
社区成员
发帖
与我相关
我的任务
分享
procedure TFrm_main.pageAddForm(mform:TForm; TmFormClass:TClass); // 将窗体加载至标签上
begin
rzpgcntrl1.Align := alClient;
rzpgcntrl1.Visible := True;
application.CreateForm(TcomponentClass(TmFormClass),mForm);
// mForm.show;
mForm.ManualDock(rzpgcntrl1);
mform.Visible := True;
rzpgcntrl1.ActivePageIndex := rzpgcntrl1.PageCount - 1;
end;