没有打开Delphi不能帮你调试,你试试看行不行. if MIDForm.Oncreate<>nil then MidForm.BringToFront else begin with TMidForm.Create(Self) do Show; end;
if not assigned(Frmstockmanage) then begin Frmstockmanage:=TFrmstockmanage.Create(self); Frmstockmanage.Show(); end else begin Frmstockmanage.BringToFront; Frmstockmanage.SetFocus; end;
if frmMdiChild <> nil then 或 if Assigned(frmMdiChild) 表示已创建了,这里的 frmMdiChild 是指MDI的子窗体,全局变量
if MIDForm.Oncreate<>nil then
MidForm.BringToFront
else begin
with TMidForm.Create(Self) do
Show;
end;
begin
Frmstockmanage:=TFrmstockmanage.Create(self);
Frmstockmanage.Show();
end
else
begin
Frmstockmanage.BringToFront;
Frmstockmanage.SetFocus;
end;
或
if Assigned(frmMdiChild)
表示已创建了,这里的 frmMdiChild 是指MDI的子窗体,全局变量
我的程序里就是这样做的