关于showmodel的问题
有一个窗体dlgForm，在程序中会被多个窗体调用，例如窗体frmForm1,frmForm2,frmForm3……，dlgForm上有一个按钮BT01(TButton),要求在dlgForm.showmodel时指定BT01的onclick事件，BT01.click必须包括dlgForm.close,请问我该怎么做，谢谢！

[解决办法]
设置BT01的ModalResult为mrOK
其它窗体打开dlgForm时，这样操作:

if dlgForm.ShowModal =mrOK then
begin
//这里写处理代码
dlgForm.Close;
end;
[解决办法]
楼上说的很好,为了让自己的程序清晰及占用最小化,应尽可能将不用的资源释放掉

try
if dlgForm.ShowModal =mrOK then
begin
//这里写处理代码
From1.Close;
end;
fianlly
dlgForm.Free;
fom1.Free;
end;