delphi 中如何关闭form，用了n方法都不行

Question

form1中
TForm1.SetPerlinParamClick
begin
Form2.ShowModal();
..
//在这里关闭form2
end;
怎么办啊；
//Form2.close;
  //SendMessage(form2.Handle,WM_CLOSE,0,0)
  //Form2.Release;
  //PostMessage(Form2.handle,WM_Close,0,0);
这都试过，form2就是没反应

Answer 1

ShowModal的窗体一般在窗体中自己关闭，比如在Form2中某个按钮的事件为
self.close;
或者直接点Form2的小X号
这是showmodal窗体的特性

Answer 2

onclose eventaction:= cafree;

Answer 3

那当然，程序会停在.ShowModal();这一句，在Form2关闭前，是不会向下执行的。所以你要在Form2里面关闭Form2.  要不你就不要ShowModal，改为show。

Answer 4

close();
showModel之后的不会被执行了啊。

Answer 5

with tform2.create(nil) do
  try
    showmodal;
  finally
    free;
  end;
end;
=======================
procedure tform2button1onclick(sender: tobject);
begin
  close;
end;