在你的ONCLICL事件中写: if (not Assigned(addfrm)) then begin if Prompt then addfrm:=Taddfrm.Create(Self); end else addfrm.BringToFront; 在 MDI CHILD FORM的ONDESTORY中写: addfrm := nil;
sorry,prompt应该去掉在你的ONCLICL事件中写: if (not Assigned(addfrm)) then addfrm:=Taddfrm.Create(Self) else addfrm.BringToFront; 在 MDI CHILD FORM的ONDESTORY中写: addfrm := nil;
if (not Assigned(addfrm)) then begin
if Prompt then
addfrm:=Taddfrm.Create(Self);
end
else
addfrm.BringToFront;
在 MDI CHILD FORM的ONDESTORY中写:
addfrm := nil;
if (not Assigned(addfrm)) then
addfrm:=Taddfrm.Create(Self)
else
addfrm.BringToFront;
在 MDI CHILD FORM的ONDESTORY中写:
addfrm := nil;