效果图如下所示
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类里面的数据传递过