我在主窗体下动态创建了一个窗体,在这个动态创建的窗体中,我又动态创建了一个窗体,在第二个动态创建的窗体下,我想用第一个动态创建的窗体内的东西(比如对一个Edit的text进行赋值),我试了不能成功·怎么回事?要实现这个功能该怎么办?
我的代码是:
  Form2.Edit1.Text:='123';

解决方案 »

  1.   

    uses 我用了,
    代码很简单
    第一个在主窗体下的button的click事件
    procedure TForm1.Button1Click(Sender: TObject);
    var form2:tform2;
    begin
      form2:=tform2.Create(application);
      form2.Parent:=form1;
      form2.Show;
    end;第二个在上一个窗体下的button的click事件
    procedure TForm2.Button1Click(Sender: TObject);
    var form3:tform3;
    begin
      form3:=tform3.Create(self);
      form3.Parent:=form2;
      form3.Show;
    end;在第三个窗体下
    procedure TForm3.Button1Click(Sender: TObject);
    begin
     form2.Edit1.Text:='456';
    end;