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

[amartapple]

有两个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显示不出来了

[hdhhb]

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

procedur Form2.destory
begin
form2.hide;
form1.show;
end;

[harabi]

哦，用onclose吧
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

form2.show;
end;

关闭form1时显示form2,
同理可得: