Form1 有个按钮,当我按下时显示Form2,同时Form1消失。

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Visible :=false;
      form2.visible:=true;
    end;
      

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.hide;
      form2.visible:=true;
      form1.show;end;
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.hide;
      form2.hide;
    end;
      

  4.   

    呵呵,写错了
    最后一个form1改为form2
      

  5.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form2:=tform2.Create(self);
      form2.show;
      form1.Hide;
    end;
      

  6.   

    按下按钮关闭Form1,然后覆盖Form1.Destory,在析构函数中显示Form2
      

  7.   

    to  u2m(UpToMe):
            这样不好阿,这样只是把 Form1隐藏了,我关闭Form2之后,Form1还在,而且无法关闭了。 能不能打开Form2的同时关闭Form1呢?
      

  8.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Visible :=false;
      form2.visible:=true;
    end;
      

  9.   

    呵呵
    是在im----
    下加
    uses
    form2name;click(Sender:Object);
    begin   
    如果都存在,而且FORM2不关不能进FORM1,那么
       form2.showmodel();
       如果FORM2在,FORM1不在
       form2.show();
       Form1.Close();
    end
      

  10.   

    如果form1是主窗体,则它关闭了那么程序也就退出了,如果不是主窗体的话
    可以
    procedure TForm2.Button1Click(Sender: TObject);
    begin
      form3.show;
      form2.Close;
    end;
      

  11.   


    这样绝对解决你的问题:procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Top:=screen.Height+64;
      form2.show;
    end;
      

  12.   

      将Form1移到屏幕之外。
      

  13.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Visible :=false;
      form2.ShowModal;
      form1.close;
    end;
      

  14.   

    哈哈,一样的,
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      form1.Visible :=false;
      form2.visible:=true;
    end;
      

  15.   

    那我的问题怎么解决阿,Form1是主窗体,但它只是一个登陆界面,我登陆后不能还让form1存在阿。按照上面的办法,我登陆到form2后,当点击form2右上角的 × 来关闭form2时,form1被隐藏了,无法关闭。
      

  16.   

    to loking(loking) : 你的办法行,是我想要的。 
    能告诉我  form2.ShowModal; 是什么意思吗?
      

  17.   

    form1.show;
    form2.hide;
    form2.close;
      

  18.   

    form2.ShowModal和form2.Show都是用于显示窗体用的,不过前者显示后,无法操作本应用程序的其他窗体,而后者可以。