【结帖】数据传递**

jinwy

在同一业务功能下, 一个窗体B引用另一个窗体A下的组件，如edit1
或combobox
在B中加上
var
form1:TItemForm; //A窗体
begin
form1:=TItemForm.Create(Self.Context);
form1.edit1.text 的值为空??
应如何写代码

jinwy

在同一业务功能下, 一个窗体B引用另一个窗体A下的组件，如edit1
或combobox
在B中加上
var
form1:TItemForm; //A窗体
begin
form1:=TItemForm.Create(Self.Context);
form1.edit1.text 的值为空??
应如何写代码

fpj

form1.edit1.text  := '';

jinwy

在A窗体上的edit1有自己录入的数据，在B中调用时为空，为什么？

jiahaiminghr

因为你的代码是创建了一个新的form1，没有去访问已经有数据的A窗体

tdwoo

采用模式窗体的方法, 让用户在你新创建的窗体内,编辑内容

Akon

此贴与http://bbs.justep.com/forum.php? ... 问题,此贴结了

jinwy

有办法吗？用代码做

jinwy

在A窗体上的edit1有自己录入的数据，在B中调用时为空，为什么？

alang

在子窗体中定义一个变量zct: TZCT;然后通过这个变量来访问主窗体
  Memo1.Lines.Text := zct.Memo1.Lines.Text;
在创建子窗体时，主窗体主动对这个变量赋值
  z := TZICT.Create(Self.Context);
  try
    z.zct := Self;
    if z.ShowModal=Business.Forms.Controls.mrOk then
      Memo1.Lines.Add(z.Edit1.Text)
  finally
    z.Free;
  end;