在unit2中
uses unit1
edit2.text:=form1.edit1.text;
在unit3中
uses unit2
edit3.text:=form2.edit2.text;
或者用个全局变量保存数据
uses unit1
edit2.text:=form1.edit1.text;
在unit3中
uses unit2
edit3.text:=form2.edit2.text;
或者用个全局变量保存数据
解决方案 »
- 菜鸟问题!急!请大虾们指点!
- 請問SetLength給Array設置長度需不需要手動釋放内存
- 如何调用系统指定的打印机
- 有谁用过CreateService函数建服务的啊.在线等。。。
- 用DELPHI开发的DLL注册后是否可以被ASP调用啊?
- 1500分求购COM+实例,收到给分,分已发出,绝不食言,由于一个贴子只能发100分,请分别到15个帖子接分!!!!(12 of 15)
- 汉化DevExpress控件 for delphi5,不是一般的小问题,请看看
- 如何让ADOTable的当前记录再从数据表刷新一下?
- 这样的数据库如何做才好
- Delphi 我要找一份兼职的工作 (地点:成都)
- 我在MidasPageProducer1中加入DATAGRID报错!
- 怎样建立ACCESS中的链接表(FOXPRO格式)
将Form2作为主窗体,然后,在Form2上,加上一个消息处理过程,专门用于接收从Form1上的Edit1发来的消息,进行处理Form3上的Edit3的显示。
如:
在Form2上:
const my_edit3=wm_user+100;
{.........}
procedure myedit3msg(var message:Tmessage);message my_edit3;
{.........}
uses unit3,unit1;
{.........}
procedure Tform2.myedit3msg(var message:Tmessage);
begin
Form3.Edit3.text:=edit2.text;
end; 在Form1上的Edit1.OnExit(Sender:TObject)事件中以送消息,
如:
SendMessage(Form2.Handle,my_edit3,0,0);
这样会实现你所需的功能!!
有空再联系!
在unit2中use unit3
Form1.Edit1的OnChange事件:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form2.Edit2.Text := Edit1.Text;
end;
Form2.Edit2的OnChange事件:
procedure TForm2.Edit2Change(Sender: TObject);
begin
Form3.Edit3.Text := Edit2.Text;
end;
edit2.text:=edit1.text,
edit3.text:=edit1.text.
procedure TForm1.Edit1Exit(Sender: TObject);
begin
form2.edit2.text:=edit1.text;
form3.edit3.text:=form2.edit2.text;
end;
form3.edit3.text:=form2.edit2.text;
系统如有什么提示,你就直接回答yes
什么都搞定了
uses
unit2, Unit3;
//Edit1的OnChange事件
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form2.Edit2.Text := Edit1.Text;
Form3.Edit3.Text := Form2.Edit2.Text;
end;
procedure TForm1.Edit1Change(Sender);
begin
Form2.Edit2.Text := Form1.Edit1.Text;//不触发Edit2.OnChange事件
end;
procedure TForm2.Edit2Change(Sender);
begin
Form3.Edit3.Text := Form2.Edit2.Text;
end;
来实现你的功能是行不通的!所以只能向楼上所说的:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Form2.Edit2.Text := Edit1.Text;
Form3.Edit3.Text := Form2.Edit2.Text;
end;