这和其他的程序一样,先Use你要打开窗体的Unit,在调用的地方:
1.
begin
if Not Assigned(FormAA) then
FormAA:=TFormAA.Create(Self);
FormAA.ShowModal;
end;
2.
记得在FormAA的Close里面填写
Action:=caFree
我用:
try
if not Assigned(LoginFrm) then
begin
LoginFrm:=TLoginFrm.create(self);
end;
LoginFrm.showmodal;
finally
LoginFrm.Free;
LoginFrm:=nil;
end;
没问题!