【搞定】子窗体的值如何回传给主窗体？？请教

zfang

var
  lct1: TCT1;
begin
  lct1 := TCT1.Create(context);
  try
    lct1.Edit2.Text := '111111111111'; //子窗体的Edit2
    if lct1.ShowModal = Business.Forms.Controls.mrOK then
    begin
       Edit1.Text := lct1.Edit2.Text;  //主窗体的Edit1 为子窗体的Edit2的值
    end;
  Finally
    lct1.Free;
  end;
------------------------------------------------------------------
在lct1窗体中用一个按钮事件代码：
procedure TCT1.mrOKClick(Sender: TObject);
begin
  ModalResult := Business.Forms.Controls.mrOK;
end;

SH_XL_ZHUFO

谢谢 回复 ，搞定了，明白了，结贴了