delphi窗体之间的相互传值
来源:互联网 发布:网络管理师考试 编辑:程序博客网 时间:2024/04/28 11:38
效果图如下所示
Form1代码
//定义一个用户信息类
type
TUsersInfo=class
//声明三个全局变量
public
UserName: string;
UserPwd:string;
UserAge:Integer;
end;
//引用form2
uses Unit2;
//定义用户信息对象
var
UsersInfo:TUsersInfo;
//初始化并付初值
procedure TForm1.btn1Click(Sender: TObject);
begin
//创建窗体对象
UsersInfo:=TUsersInfo.Create;
//赋值初始化
UsersInfo.UserName:='小王';
UsersInfo.UserPwd:='123456';
UsersInfo.UserAge:=18;
//手动运行启动窗体
Application.CreateForm(TForm2,Form2);
//显示窗体
Form2.Show;
end;
在窗体form2里面写如下代码
uses Unit1;//引用form1
//窗体初始化代码
procedure TForm2.FormCreate(Sender: TObject);
begin
//将Form类里面的数据传递过来
edt1.Text:= UsersInfo.UserName;
edt2.Text:=UsersInfo.UserPwd;
edt3.Text:=IntToStr( UsersInfo.UserAge );
end;
最后一步比较关键了,因为我们要显示form2而且是传值的情况下,我们就要将form2的autocreate改成available即可,如下图所示:
按OK确认。
- delphi窗体之间的相互传值
- Qt窗体之间相互传值的三种方式
- Qt窗体之间相互传值的三种方式
- Qt窗体之间相互传值的三种方式
- Delphi 停靠技术的应用2(窗体之间的相互停靠,引入宿主窗体)
- Delphi 停靠技术的应用2(窗体之间的相互停靠,引入宿主窗体)
- Delphi 停靠技术的应用2(窗体之间的相互停靠,引入宿主窗体)
- winform 两个窗体之间来回传值/相互传值
- Visual Studio 中两个窗体(WinForm)之间相互传值的方法
- 父窗体与子窗体之间的相互操作
- 父窗体与浮动帧之间的相互控制
- (Windows Form)两个打开的窗体之间相互调用。
- DotNet平台下WinForm窗体之间的相互操作
- C#(WIN FORM)两个窗体间之间的相互操作
- 从0自学C#05--窗体之间的相互访问
- UITextFiledView页面之间的相互传值
- 窗体之间的传值问题
- 两个winform窗体之间的传值
- 删除字符串中的数字
- 说一下id3决策树
- 并查集
- 蓝桥有感,
- Android剪切板设置和读取字符串String 关键代码
- delphi窗体之间的相互传值
- 测试HTTP的方便法
- cocos2dx:数据存储-静态数据
- AStyle代码格式工具在source insight中的使用
- Codeforces Round #227 (Div. 2) / 387C George and Number (贪心)
- Struts2中的Could not find action or result
- 我的C++第三周作业(第二章)
- C# ListView中点击表头ColumnClick实现对相应列的排序
- MySQL数据同步的方法