社区
语言基础/算法/系统设计
帖子详情
如何,在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 无法实现。请高手赐教。谢谢。
...全文
65
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 JavaScript库、JSON
数据
交换
格式、Servlet或Struts2作为后端控制器以及Ext JS
中
的两种UI组件:Tree Panel和Tab Panel。以下将详细介绍这些技术及其在Web应用
中
的作用。 1. Ext4:Ext JS...
json-view-chrome插件 JSONView 0.0.32.2官方绿色版
JSON(JavaScript Object Notation)是一种轻量级的
数据
交换
格式,它基于JavaScript的一个子集,易于人阅读和编写,同时也易于机器解析和生成。JSONView插件就是利用这一特性,将原本可能难以辨识的原始JSON
数据
转化...
基于Tomcat7、Java、Ext、WebSocket的聊天室
WebSocket是一种在客户端与服务器之间建立持久连接的协议,它允许双方进行全双工通信,即
数据
可以在两个方向上同时传输,极大地提高了实时性。在基于Tomcat7、Java、Ext和WebSocket的聊天室项目
中
,这些技术共同构建...
c#+多年积累的类库(非常全)
本资源“c#+多年积累的类库(非常全)”集合了作者在多年开发过程
中
整理的各种实用类库,涵盖XML操作、文件操作、图形操作和
数据
库操作等多个方面。下面将分别详细介绍这些关键领域的知识点。 1. XML操作: XML...
语言基础/算法/系统设计
16,747
社区成员
33,239
社区内容
发帖
与我相关
我的任务
语言基础/算法/系统设计
Delphi 语言基础/算法/系统设计
复制链接
扫一扫
分享
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章