如何实现窗口之间的调用啊

Question

我想点一下按钮打开一个小的窗口,在delphi里怎么实现啊,

Answer 1

建两个窗体：Tform1,Tform2
在Tform1里调用
form2:=tform2.create(nil);
form2.show;

Answer 2

弄两个窗体阿。然后点按纽的时候 form2.show
如果你的窗体不是在工程加载的时候创建的，那就
form2:=tform2.create(self);
form2.show;

Answer 3

窗体也是对象。调用这个对象的Show或ShowModal 方法可以显示。所以只要按钮下创建一个对象，调用方法就可以了。如果这个对象所在单元和你按钮所在单元不同，则引用。

Answer 4

如果你的意思是:按下第二个窗体的按钮之后,把第二个窗体的东西放到第一个窗体里的话.建两个窗体：Tform1,Tform2第一个窗体的按钮代码实现:
procedure Tform1.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(Tform2,form2);
  form2.ShowModal;
end;第二个窗体的按钮代码实现:
procedure Tform2.BitBtn1Click(Sender: TObject);
begin
  with Tform1.ADOQuery1 do
    begin
      Close;
      sql.Clear;
      sql.Add('Select * from Ta where 1=1');
      if trim(Edit1.Text) <> ''then
      sql.Add('and a1 = '''+trim(Edit1.Text)+''' ');
      Open;
    end;
    Close;
end;