A窗体edit内容写入后，关闭A窗体，传到B窗体memo中

Question

A窗体edit内容写入后，关闭A窗体，传到B窗体memo中。不能操作原有数据库，也不能增加任何临时结构。帮帮我，该怎么做呢？

Answer 1

A窗体中的关闭里写  B.memo.lines.add(edit.text);

Answer 2

FormA.ShowModal();
tmp := FormA.Edit1.Text;
FormB.Memo.Text := tmp;
FormB.ShowModal();其实只要Form不Free掉，就随便存取吧！

Answer 3

在A窗体中引用B窗体然后在
A窗体的OnClose事件中写 ：
B.memo1.Lines.Add(Edit1.Text);

Answer 4

to 探索者：
  你和楼上的兄弟说得一样，但是这种方法我测试后
发现在B窗体下不能看到添加的内容。

Answer 5

应该没有问题
  b.memo1.Lines.Add(edit1.text);

Answer 6

我的方法没有问题的 :)前提是两个窗体都是Delphi自己建立的，不是你动态建立的，如果你动态建立
那也要b先建好再建a

Answer 7

to CDSoftwareWJ：
  兄弟，我的程序不允许有两个窗体并存在当前界面的！而且我的确是动态建立的，有没有相应的更好的办法呢？

Answer 8

哎，光建立不显示不就可以呀，这点都想不通，I 服了 You

Answer 9

to 扬清：
   我是两个不能共存的窗体啊！而且A窗体是被FREE掉的

Answer 10

不能共存？？那就用主窗体中转一下啦 hehe^^

Answer 11

to 流浪者：
  全局变量可以这么用吗？可以的话，应该怎么用那？
to CDSoftwareWj：
  兄弟，先别着急说我，按照你的说法，两个互斥的窗体可以同时建立吗？
而且我那句话是指当前只有一个可显示的活动界面，其他资源都被free了！

Answer 12

to CDSoftwareWj：
   用主窗体中转？？怎么做那？

Answer 13

哦，看来是个问题 hehe^^主窗体不会被Free吧，free了程序就结束了，不能用主窗体中转一下数据吗？想过没有？

Answer 14

在A关闭时写入主窗体中不可见控件edit1.text，B建立时从主窗体读入 OK？？

Answer 15

to CDSoftwareWj：
   你的意思我明白了，的确应该可以。但是，如果我有三十个控件都这么做，那你觉得从问题解决角度或者资源方面，这种解决方法好吗？还有别的方法吗？期待中！

Answer 16

这个问题你可以这么做。在A窗体impletation先uses b;　在A窗体的public里定义一个变量str用于存放返回的结果
procedure Tfrom1.buttonclick(object:sende)
beginBFrom:=TBfrom.create(application);
if Bfrom.modalresult=mrok Then
B.memo1.Lines.Add(str);
end;然后在Bfrom的impleation里引用uses From1;A窗体的名称。
在B窗体的关闭按钮写上
procedure TBfrom.buttonclick(object:sender);
begin
form1.str:=edit1.text;
modalresult:=mrok;
end;

Answer 17

对了，还要说一句，资源不成问题，VCL控件百十来个不成问题，只是多个定义，多用了一点点内存，没事的，你才用Edit呀，我的一个同事在一个项目中用了好几十对数据集！！天啊，看都看花眼了———

Answer 18

Sendmessage(B.Memo1.Handle,WM_SETTEXT,0,integer(PChar('Test')))

Answer 19

to CDSoftwareWj：
   全局的变量定义单元是什么意思？该怎么做那？
   谢谢了，分数不成问题的。
to 海浪：
   您的回答我看了，一方面您的程序可能写的有点问题，另一方面，您还是没有脱离前面说过的方法，那种方法我知道，但是似乎和我的程序不能配合。麻烦您还有别的办法吗？

Answer 20

to ehom：
   能说的再详细点吗？

Answer 21

全局的变量单元（只有我这样叫吧）
不过是为了代码好看，属于代码编写风格与自己喜好的问题
就是把程序中的一类全局变量和常量定义在一个单元文件中定义（Unit）
然后在使用的程序中引入、使用就可以了，和C中的(.h)文件一个道理
没什么的，只不过这样做 程序代码好看、易懂、好维护又模块化^^! 高手们不要笑我哦

Answer 22

to CDSoftwareWj：
   具体该怎么写那？给个范例吧？也算是学习好的代码编写习惯。
还有这样写的话，是不是任何窗体都可以调用那？

Answer 23

qhdsfh(飞翔的鹰) 真是拿你没办法，你只要定义一个unit,把变量写在一个公共模块里，大家都可以用。

Answer 24

hehe^^ My_first(海浪) 说的明白

Answer 25

OK！问题解决了！谢谢海浪和CDSoftwareWj两位！我的qq是30717253，能和我联络吗？以后少不了麻烦你们！：）我还开了一帖，请过去领分！