小弟有一个很简单的问题请教大家
  有fm1,fm2两个窗体,当单击fm1上的button时,fm2窗体出现,f1窗体关闭,该如何写代码及写在何处,拜托了,请帮忙!

解决方案 »

  1.   

    buttonclick()
    begin
    fm2.show;
    fm1.close; 或者fm1.hide;
    end;
      

  2.   

    procedure TFm1.Button1Click(Sender: TObject);
    begin
      Fm2:=Tfm2.create(application);
      Fm2.showmodal;
      Fm1.Visible:=false;
    end;
      

  3.   

    procedure TFm1.Button1Click(Sender: TObject);
    begin
      Application.CreateForm(Tfm2, Fm2);
      fm2.ShowModal;
      Fm1.Visible:=false;
    end;
      

  4.   

    并在第一单元里,把第二个单元USES进去。
    implementation
    uses
      unit2;
      

  5.   

    来晚了……
    不过做这个操作时要记得在form1中uses form2单元!
      

  6.   

    form1.hide;
    form2.show;
    if want show form1 again , use form1.show;
      

  7.   

    form2.show;
    form1.hide;//不能用Close,会出错..
      

  8.   

    在Form2的OnShow事件中关闭Form1;
      

  9.   

    如果form1是窗体的话:就用form1.Visible:=false或form1.hide。
    如果不是就用form2.show;
                form1.close;