如何用代码关闭一个模式窗口？(20分)

QiuXiaoFeng · 2001-09-06

如：
创建新窗体
FORM:=TFORM2.CREAT（SELF）；
FORM.SHOWMODAL；
FORM.FREE；

在FORM2的BUTTON1事件中写入
FORM2。CLOSE；//出现异常?

Pan Ying · 2001-09-06

直接写Close试试看。

QiuXiaoFeng · 2001-09-06

如何写？

dlnew · 2001-09-06

procedure tform2.button1click(sender

bject);
begin
modalresult := mrok;
end;

gotosea · 2001-09-06

最好用以下的代码
with TFORM2.Create(SELF) do
try
ShowModal;
finally
Free;
end;
在FORM2的BUTTON1事件中直接写Close.

QiuXiaoFeng · 2001-09-06

谢谢DLNEW，问题解决了。