关于Form返回值的问题

请问我用在form1的一个函数中用 ShowModal 方式打开 Form2 后，怎样 从Form2返回值给 Form1的调用函数呢?

解决方案 »

  1.   

    var
      result:dword;
    begin
      resutl:=form2.showmodal;
      

  2.   

    with tform2.create(nil) do 
    if showmodal=mrok then
    begin
        a:=edit1.text;  //form2中的edit1 
        free;
    end;
      

  3.   

    我是想知道怎么在form2中赋值
      

  4.   

    case form2.showmodal of
      mrNone: ;
      mrOK:   ;
      mrCancel: ;
      .....
    end;—————————————————————————————————
    宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
    —————————————————————————————————
      

  5.   

    拜托，我是想在form2中赋值，然后返回给form1的调用函数用，form2是在form1中用ShowModal打开的
      

  6.   

    lxpbuaa: good:), study from you,,form copy_paste , form you all
      

  7.   

    各位帮帮忙了。我在 Vcl 版也发了，那也有50分，帮我解决问题的，我一定将两个50分都给你加上
      

  8.   

    在Form2的public中设一个变量,关闭时给变量值,form1用的时候访问这个变量不就解决问题了吗！
      

  9.   

    http://expert.csdn.net/Expert/TopicView2.asp?id=1059121&datebasetype=now
      

  10.   

    在form2的public中申明一个变量，form1访问这个变量就是了
    也可以在form1申请一个变量，中form2中引用
      

  11.   

    在Form2的public中申明变量，然后直接使用Form2.变量名方式就可以获得该值，当然要在Form2被释放之前，另外可以在Form1的Public中申明变量，在Form2对该变量进行操作可以起到同样的作用，我个人觉得第二种方法好像好一点，不过矛盾的是，我一直在使用第一种方法，习惯了，很难改了