如何实现这样的功能,比较简单,我怎么没成功

Question

有两个form1,form2,form1为主form
想让他们交替显示(既显示2时不显示1,关闭2时显示1)我这样写procedure Form1.btClick
begin
  Form1.visible:=false;
  Form2.show;
end;procedur Form2.destory
begin
  Form1.visble:=true;
  Form1.show;
  Form2.Free;
end;可是不行,关了Form2后Form1显示不出来了

Answer 1

试试下面的代码：
procedure Form1.btClick
begin
  Form1.hide;
  Form2.show;
end;procedur Form2.destory
begin
  form2.hide;
  form1.show;
end;

Answer 2

哦，用onclose吧
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin    form2.show;
end;关闭form1时显示form2,
同理可得: