请教各位,我刚刚接触delphi6.我建立一个form2窗体,上有一个button,想实现鼠标点button,则form1隐藏,form2显示,请教各位,如何实现呢?
好象在form1文件的哪里添加form2的定义?
谢谢。

解决方案 »

  1.   

    先建立两个Form,然后Form1中在File->use unit...点Form2即可
      

  2.   

    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
      Self.Hide;
      with TForm2.Create(nil) do
        ShowModal;
    end;end.
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Self.Hide;
      Form2.Show;
    end;
      

  4.   

    感觉逻辑有问题哦
    Form2上的按钮,点了Form2显示?????
    不是已经显示了啊!