var
_MyData: TMyStructure; //传递的参数必须是全局的
implementation
{$R *.dfm}
procedure TForm2.Excute_Form(MyData: TMyStructure);
begin
_MyData := MyData;
with TForm2.Create(Application) do
begin
try
Init;
ShowModal;
finally
Free;
end;
end;
end;