【经验】delphi模式窗体给主窗体传值

本文来自于：http://hi.baidu.com/cszhi/blog/item/18f1533bcb089ded14cecb4b.html

思路：   
模式对话框:   

unit   ModuleForm   
type   
      TModuleForm=class(TForm)   
      Button1:TButton;   
      private   
        returnvalue:string//你想要返回的值;   
      public   
        function   execute(p1:string):string;//返回值的类型;   
      end;   
var   
      ModuleForm:TModuleForm;   
implementation   
    Function     TModuleForm.execute(p1:string):string;   
        begin   
              
              .......   
              //利用P1参数做一些showModule之前的初始化工作；   
              ModuleForm.ShowModal;   
              return   returnvalue;   
      end;   
    在主窗口程序中：   
      procedure   TMainForm.showModuleForm   
      var   
          rtnValue:string;   
              
      begin   
          Application.CreateForm(TModuleForm,ModuleForm);   
    
          rtnValue:=ModuleForm.execute（'初始化用的参数'）;   
      end;