本帖子已过去太久远了，不再提供回复功能。2315人阅读
Delphi（16）
unit Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdC
TForm1 = class(TForm)
procedure btn1Click(Sender: TObject);
{ Private declarations }
procedure MyMessage(var message: TMessage); message wm_user + 999;
{ Public declarations }
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
procedure TForm1.MyMessage(var message: TMessage);
case message.LParam of
1: PString(message.WParam)^ := '消息方式改变值';
2: PBoolean(message.WParam)^ := T
3: PInteger(message.WParam)^ := 456;
4: PDateTime(message.WParam)^ := N
procedure TForm1.btn1Click(Sender: TObject);
d : TDateT
s := '000'; {s=000}
PString(Integer(@s))^ := '123'; {s=123}
b := F {b=False}
i := 123; {i=123}
d := 0; {d=0}
SendMessage(Handle, wm_user + 999, Integer(@s), 1);
SendMessage(Handle, wm_user + 999, Integer(@b), 2);
SendMessage(Handle, wm_user + 999, Integer(@i), 3);
SendMessage(Handle, wm_user + 999, Integer(@d), 4);
ShowMessage(
's=' + s + #13#10 + {s=消息方式改变值}
'b=' + BoolToStr(b) + #13#10 + {b=True}
'i=' + IntToStr(i) + #13#10 + {i=456}
'd=' + DateTimeToStr(d) {d= 14:04:04}
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：35305次
排名：千里之外
原创：18篇
转载：15篇
(2)(2)(3)(5)(2)(11)(3)(6)2012年4月 Delphi大版内专家分月排行榜第二2012年3月 Delphi大版内专家分月排行榜第二2012年1月 Delphi大版内专家分月排行榜第二2011年11月 Delphi大版内专家分月排行榜第二
2012年2月 Delphi大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。Delphi 动态创建的窗体间如何传值？
20gouxiaoyu]
Delphi 动态创建的窗体间如何传值？
20gouxiaoyu]
发布时间： 16:57:12
编辑：www.fx114.net
本篇文章主要介绍了"Delphi 动态创建的窗体间如何传值？
20gouxiaoyu]"，主要涉及到Delphi 动态创建的窗体间如何传值？
20gouxiaoyu]方面的内容，对于Delphi 动态创建的窗体间如何传值？
20gouxiaoyu]感兴趣的同学可以参考一下。
在父窗体内动态创建了一个子窗体
&&&&//noteFrm_:=&TFrmNote.Create(Self);
&&&&//noteFrm_.S
&&&&statFrm_:=&TFrmStat.Create(Self);
&&&&statFrm_.S
我想点击statFrm的一个按钮后吧statFrm的一个edit1.Text传给noteFrm的edit2.Text
如果noteFrm不存在就动态创建一个并把edit.Text传给他的edit2.Text
代码该怎么写？
还望各位大虾不吝赐教！！通过创建实例直接访问其组件if&not&assigned(noteFrm)&then
&&noteFrm:=TnoteFrm.Create(Self);
&&noteFrm.S
&&notrFrm.S
&&notrFrm.edit2.text:=edit1.
手写的不知道对不对，你自己测试一下。能不能说具体点&Dephi我是新手&-∧-&...简单一点，可以设置一个全局变量，比如k:string&&点击按钮后，先把edit1的值传给k,k:=edit1.然后等noteFrm显示后，再把k的值传给edit2就可以了。这个全局变量k就相当于一个送信的noteFrm&是窗体的变量名&这时窗体还没创建&编译都通不过。。全局的不好。。先判断窗体是否创建啊，然后在传值过去。重载构造函数/定义属性/直接访问窗体组件
上面的三种方法都可以var
&&noteFrm_:&TFrmN
&&if&not&assigned(noteFrm_)&then
&&&&noteFrm_:=TFrmNote.Create(Self);
&&&&noteFrm_.S
&&&&noteFrm_.S
&&&&noteFrm_.edNoteNum.Text:=&ADOQ2.FieldByName('code').AsS
用了yct0605的方法&noteFrm_没有显示出来也没有报错。。。大家有没有更好的办法啊？全局变量为啥不好？
你在点击按钮后，添加一句k:=edit1.
然后在noteFrm_.S下面再添加一句edit2.text:=k;
不就全结束了？我的程序内只能存在一个noteFrm_&还没创建出来就创建它&创建出来了就不能再创建了yct0605的不对引用&9&楼&gouxiaoyu&的回复:var
&noteFrm_:&TFrmN
&if&not&assigned(noteFrm_)&then
& &noteFrm_:=TFrmNote.Create(Self);
& &noteFrm_.S
& &noteFrm_.S
&&[noteFrm_.edNoteNum.Text:=&ADOQ2.FieldByName('code').AsS引用&9&楼&gouxiaoyu&的回复:var
&noteFrm_:&TFrmN
&if&not&assigned(noteFrm_)&then
& &noteFrm_:=TFrmNote.Create(Self);
& &noteFrm_.S
& &noteFrm_.S
&noteFrm_.edNoteNum.Text:=&ADOQ2.FieldByName('code').AsS用了yct0605的方法&noteFrm_没有显示出来也没有报错。。。我刚才试了试，没有错误。是没有错误&可noteFrm_&还是无法显示。。引用&17&楼&gouxiaoyu&的回复:是没有错误&可noteFrm_&还是无法显示。。
问题转移了，原先是数据传送，现在改成窗体显示了动态窗体&间传输数据&肯定是先动态创建窗体
&&再把数据传入咯&如果noteFrm存在&我就要获取它的实例把edit.Text传给它谢谢大家的关注明白了，你只是判断了noteFrm_是不是存在，存在就发数据过去，可是你还没有创建noteFrm_上的edit控件呢，所以没有数据显示。在创建noteFrm_的语句后面，加个创建edit的语句就搞定了var&
&&noteFrm_:&TFrmN&
&&if&not&assigned(noteFrm_)&then&
&&&&noteFrm_:=TFrmNote.Create(Self);&
&&&&noteFrm_.S&
&&noteFrm_.edNoteNum.Text:=&ADOQ2.FieldByName('code').AsS
这回应该没问题了吧。我想是我表达错了&第一次用CSDN寻求帮助&-&-~！
我有一个unitu&NoteF
&界面都是画好的&有edit1控件。。&汗，白忙活了。请你重新清楚的、完整的把问题再说一遍，好嘛？(几乎是请求的语气了)你是不是说，点击statfrm上的一个按钮，然后把statfrm上的edit1的值传送给notefrm上的edit1&？如果notefrm已经打开，则正常传送，如果notefrm还没显示就把它显示出来再传送？假如仅仅是为了传值的话，有4种方式
1.在传值和被传值之间用函数来实现
2.用变量来实现
3.用共享的数据空间，比如datamodule来实现
4.用消息来实现
看你喜欢了假如仅仅是为了edit的话，那更加简单，SendMessage(Edit.Handle,WM_SELText,0,LongInt(PChar))好吧&谢谢您的关注！&我需求是这样的：&我设计了一个父窗体和两个子窗体Form1和Form2&在父窗体上有两个按钮&点击能创建相应的窗体&现在我点击一个按钮创建了Form2，并再Form2中查询出了数据放在了DBGrid中，我想双击DBGrid的一&行数据就把DBGrid中第一列的值取出，&并判断Form1是否已经被创建&如果被创建了我就获取它的实例，&如果没有被创建就创建它。&然后把DBGrid中第一列的值传给Form1的一个edit，同时将这个值作为参数查询数据库，&并把查询获得的数据给Form1&感激不尽！！！首先，你要明白一个事情，既然你已经在设计期搞定了那两个form，那么在你程序中就不要再重复创建form了，只要根据需要把那两个form打开就行了，直接用form1.&&另外你说双击dbgrid的一行，就把第一列数据取出，传给edit，但是你要知道，第一列哎，数据不止一条，你怎么传给edit？&
&要获取Form1的实例&&才可以用Show&啊&
&&&&DBGrid第一列是&：当前选中的第一列
谢谢xinxinshou2009的关注LZ的意思是不是在取得edit1的值后窗体就关闭了？然后向把这值传个另一个窗体啊？form是你自己设计期就创建的，有什么实例不实例的？算了&把分给xinxinshou2009吧&感谢大家的帮助悲剧的楼主
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：