delphi下如何通过点击按钮打开新窗口？？

谢谢阿

解决方案 »

  1.   

    form1.show;
    ？？？
    是这个吗
    ？？？
      

  2.   

    .show方法干脆
      Application.CreateForm(TForm2, Form2);
      

  3.   

    if not assigned(Form1) then
        Application.CreateForm(TForm1,Form1);
      try
        Form1.show ;
      finally
        Form1.free;
        Form1:=nil;
      end;
      

  4.   

    procedure 窗体名.SpeedButton1Click(Sender: TObject);
    begin
      窗体名.show;
    end;
      

  5.   

    按照前人的说法，我已经建立了，但是如何能在俩个窗口之间传递参数呢？比如form2的edit1如何给form1得lable1
    谢谢
      

  6.   

    from1.label1.caption:=form2.edit1.text!
      

  7.   

    在form1的Unit1中uses Unit2，之后便可以在Unit1中利用form2.edit1.text了
      

  8.   

    但是如果我想要在弹出的form2里面收集数据，点确定，这时候能激活父窗口form1里面的buttonclick嘛？我在unit2里用use unit1,确说我cirlce利用了use，好像是不允许的啊
      

  9.   

    在form2buttonclick里调用form1的事件：
       Form1.Button1Click(Button1)
      

  10.   

    先要use '你要打开得窗体的名称'
    然后用show方法
    unit2 
    use  unit1procedure Form2.Formclick(sender as Tobject);
    begin
       form1.show;
    end;