在Form2的public里或者直接在var下定义几个公共参数;在Form1关闭前指定form2.参数=form1中的信息。

解决方案 »

  1.   

    在Form1对应的单元文件Unit1的implementation下写
    uses unit2;  //Form2对应的单元文件在unit2中的public里或者直接在var下定义几个变量,比如var aaa: integer;在Form1的onclose事件中写
    Form2.aaa:=3; //给Form2中的变量aaa赋值,值随意
      

  2.   

    较正统等方法是自己定义一个结构和消息,然后用SENDMESSAGE发送给FORM2
    在form2中拦截此消息并进行处理

    type
      pMy=^My
    My=record
      s:integer;const
      WM_MY=WM_USER+1;