mdi child window的小问题

Question

有一个mdi child 风格的子窗口   他的关闭事件象下面的代码(TForm2.FormClose)procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;这个子窗口里有个按纽  作用是按下这个按纽  就关闭这个子窗口  在Button1Click要怎么写这个代码啊？
procedure TForm2.Button1Click(Sender: TObject);
begin
  //要怎么样才能关闭这个子窗口啊？？
end;

Answer 1

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

Answer 2

form2:=nil;
你干吗不写在一起呢?

Answer 3

可以直接写在Onclose事件中
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
form2:=nil;
end;

Answer 4

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;