窗口的打开与关闭问题

Question

窗口A和窗口B窗口A中有一按钮，如何在点击按钮的时候关闭窗口A并且同时打开窗口B？？？？？
希望有详细代码

Answer 1

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Close;//如果是主窗体，用Hide;
    Form2.Show;
end;

Answer 2

Form1:=TForm1.Create(Self);
Form1.Show;
form2.Close;

Answer 3

Form1 := TForm1.Create(Application);
  if Form1.ShowModal = mrok then begin
    Form2 := TForm2.Create(Application);
    Form2.ShowModal;
  end;
在Form1加入按钮  
按钮的CLICK事件中加入
以下代码
ModalResult := mrok;

Answer 4

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
    Close;//如果是主窗体，用Hide;
    Form2.Show;
end;正解

Answer 5

Form1 := TForm1.Create(Application);
  if Form1.ShowModal = mrok then begin
    Form2 := TForm2.Create(Application);
    Form2.ShowModal;
  end;
将这段代码加到工程文件中，然后BUTTON的ONCLICK事件中ModalResult := mrok;