delphi窗体之间的相互传值效果图如下所⽰
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);
//显⽰窗体
gridview不显示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确认。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。