社区
语言基础/算法/系统设计
帖子详情
如何,在2个窗口中交换数据啊。
FeiXue_AL
2005-05-14 11:38:39
有Form1和Form2 我从Form1中 .show 打开form2 ,如何把 form1中的edit1.text 中数据 放入form2中的edit1.text 呢?
在vb中,可以在模块中设置 全局变量,还可以在form2中使用 form1.text1.text。但在delphi中如何设置呢?使用Form1.edit1.text 无法实现。请高手赐教。谢谢。
...全文
63
5
打赏
收藏
如何,在2个窗口中交换数据啊。
有Form1和Form2 我从Form1中 .show 打开form2 ,如何把 form1中的edit1.text 中数据 放入form2中的edit1.text 呢? 在vb中,可以在模块中设置 全局变量,还可以在form2中使用 form1.text1.text。但在delphi中如何设置呢?使用Form1.edit1.text 无法实现。请高手赐教。谢谢。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
FeiXue_AL
2005-05-15
打赏
举报
回复
谢谢大家了。嘿嘿。
herman~~
2005-05-15
打赏
举报
回复
也可以自定义消息,在两个窗口之间发送
naner_china
2005-05-14
打赏
举报
回复
楼主写错了吧
测试
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//str := edit1.Text;
form2.edit1.Text := edit1.Text;
form2.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
end;
end.
sunnysmile
2005-05-14
打赏
举报
回复
在form2的uses中加上form1就行了!
FeiXue_AL
2005-05-14
打赏
举报
回复
知道了,在form2的 引如unit Unit1;
Ext4+JSON+Servlet+Tree构建Web应用框架
Ext4+JSON+Servlet/Struts2+Ext.tree.Panel+Ext.tab.Panel构建Web应用系统框架
json-view-chrome插件 JSONView 0.0.32.2官方绿色版
JSONView 0.0.32.2 从谷歌商店下载。 chrome://extensions/ 开发者模式 载入 或者Canary及Dev版本,拖入crx文件
基于Tomcat7、Java、Ext、WebSocket的聊天室
项目可以直接导入,一个基于Tomcat7、Java、Ext、WebSocket的聊天室,分数是3分,目的不是为了赚分,是为了大家能够评论,提出意见。
c#+多年积累的类库(非常全)
c#+多年积累的类库(非常全),分享给大家,XML操作,文件操作,图形操作,
数据
库操作
语言基础/算法/系统设计
16,747
社区成员
33,239
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章