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

SH_XL_ZHUFO

子窗体的值如何回传给主窗体？？请教
1 主窗体 a 中，有一个存储过程数据集，一个文本框 edit1 ,一个打开按钮 buttopen
2 子窗体 b 中有一个文本框 edit1 ,一个关闭按钮 buttclose

主窗体 a 按钮 buttopen 按下时 打开子窗体 b
在 子窗体 b 中的 edit1 中输入 ‘abcc’

清问，如何在 子窗体的 关闭按钮 按下后，将数据 ‘abcc’传回主窗体，比如 a.edit1.text=b.edit1.text ，有没有这样的写法，请给段代码实例 或 解决方案

jiahaiminghr

在a窗体button的单击事件中写代码：
var
  b: TB;
begin
  b := TB.Create(context);
  try
    b.ShowModal;
    a.edit1.text=b.edit1.text
  finally
    b.Free;
  end;
end;

SH_XL_ZHUFO

b:tb;
编译报错
[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(41, 11): Undeclared identifier "TB"
[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(45, 13): Undeclared identifier "TB"
[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(47, 13): Undeclared identifier "ShowModal"
[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(48, 6): 只能访问类型的静态成员或构造方法
[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(50, 12): Undeclared identifier "Free"

lixy

TB的意思是代表你子窗体，你的子窗体类名叫什么就替换成什么。

jiahaiminghr

楼主，搞定了吗？

SH_XL_ZHUFO

谢谢回复，昨天出差了，试一下我来

SH_XL_ZHUFO

procedure TYEB.ToolBSELEClick(Sender: TObject);
var
aYEBGLJM: Tform;
begin
aYEBGLJM := Tform.Create(self.context);
  try
    aYEBGLJM.ShowModal;
yeb.TXT_zt.text:=ayebgljm.edit1.text;   //这句报错

  finally
   ayebgljm.Free;
  end;

end;


[错误]Biz:\YYDNDZTCS\FUNC\DZTCX\KMYEB.FUNC.DIR\YEB.Form.pas(48, 5): Undeclared identifier "TXT_zt"

yeb 是主窗体的名字，我没用过 delphi ，原来使用 vb ，对这个的语法不明白，请执教

lisb

报错那句去掉 yeb. 就可以了

SH_XL_ZHUFO

还是这句报错：
只能访问类型的静态成员或构造方法

SH_XL_ZHUFO

procedure TMainForm.Button1Click(Sender: TObject);
var
tct1: Tform;
begin
tct1 := Tform.Create(context);
  try
  tct1.showmodal;
  edit_main.text:=tct1.edit_sub.text;   //这句报错
  finally
   tct1.Free;
  end;
end;

TMainForm 主窗体 tct1 子窗体 edit_main 主窗体文本框  edit_sub 子窗体文本框
我想在子窗体关闭后把 edit_sub 的值 传回 edit_main

报错信息
[错误]Biz:\YYDNDZTCS\FUNC\YWGN1.FUNC.DIR\MainForm.Form.pas(31, 24): Undeclared identifier "edit_sub"


tct1 下无法引用到 edit_sub