【结帖】数据传递**

jinwy

试了一下，没用，是否再详细一点。
Memo1 是在主窗体中定义？

alang

怎么会没用呢，代码是我测试过的
主窗体上有 Memo1
子窗体上有 Edit1
在主窗体的Button OnClick事件中，执行上面的代码，创建子窗体，显示出来，把Edit1输入的内容显示到主窗体的Memo1里

jinwy

搞反了，我要把主窗口的EDIT1.TXT的值传到子窗口的EDIT1.TEXT上。

zfang

var
  lZCT : TBDYCT;//被调用窗体
begin
  lZCT := TBDYCT.Create(Context);
  try
    lZCT.Edit1.Text := Edit1.Text;//赋值
    if lZCT.ShowModal = Business.Forms.Controls.mrOk then
      Edit1.Text := lZCT.Edit1.Text;//被调用窗体的结果返回给主窗体
  finally
    lZCT.Free;
  end;

jinwy

OK，可以了，结吧！