窗口的显示与隐藏？（在线等）

Question

程序开始运行的时候先显示一个窗口（Form1)，然后单击这个窗口的一个BUTTON，出现另一个窗口(Form2)，同时要求先前的窗口不显示（在屏幕上看不到了），请问各位高手怎样实现这样的功能？

Answer 1

/////////////////////////////////////////////////////////////////////////////////////
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;
  form1.Hide;
end;end./////////////////////////////////////////////////////////////////////////////////////
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm2 = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit1;{$R *.dfm}procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form1.Show;
end;end.

Answer 2

//Unit1单元中的内容是这样的,Form2你自己定义.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;//在Unit1单元中引用Unit2单元{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;//Form2显示
  form1.Hide;//Form1隐藏
end;end.

Answer 3

//Unit1单元中的内容是这样的,Form2你自己定义.
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;//在Unit1单元中引用Unit2单元{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.Show;//Form2显示
  form1.Hide;//Form1隐藏
end;end.