送分！！送分！！！该怎么关闭这个窗口？？？

Question

你试以下！！
放一个button然后写代码
fOpreSet.close;
结果没有反映！！

Answer 1

是Mdi窗口吗，
如是在FormClose中加入
Action := caFree;

Answer 2

无论什么窗口，再onClose里面写上ation := caFree;应该可以

Answer 3

在被Show的窗体上放一个TBitbtn吧，并把其Kind设为bkOk不用写代码。
试试能不能关

Answer 4

var fOpreSet:TfOpreSet;
begin
  try
  fopreset:=Tfopreset.create(application);
  fopreset.ShowModal ;
  finally
  fopreset.free;//FreeAndNil(foprest)
  fopreset:=nil;
  end;
end;
-------------------
为什么就关不掉呢?
明明ShowModal就说明它不是一个多文档的子窗体啊;

Answer 5

你不是在try finally 里面free掉了吗？指针都丢失了还关什么关如果防错使用try...except..end

Answer 6

不可能关不掉啊？
是Mdi窗口吗，
如是在FormClose中加入
Action := caFree;

Answer 7

fopreset.free;
  fopreset:=nil;
重复了