procedure TFrmMain.N12Click(Sender: TObject);
var
I: Integer;
TabSheet2: TTabSheet;
begin
if Assigned(FrmDotCoordinateEdit) then
begin
for I := 0 to FrmMain.MDIChildCount - 1 do
if (frmMain.MDIChildren[I] is TFrmDotCoordinateEdit) then
begin
Self.MDIChildren[I].BringToFront;
MDIChildren[I].SetFocus;
Exit;
end;
end
else
begin
Application.CreateForm(TFrmDotCoordinateEdit, FrmDotCoordinateEdit);
TabSheet2:= TTabSheet.Create(self);
TabSheet2.PageControl := ppgcForm;
FrmDotCoordinateEdit.Parent:= TabSheet2;
ppgcForm.ActivePage:= TabSheet2;
TabSheet2.Caption:= FrmDotCoordinateEdit.Caption;
FrmDotCoordinateEdit.Show;
end;
end;
pagecontrol中显示窗体
最新推荐文章于 2020-07-01 10:50:21 发布