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

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

思路：   
模式对话框:   

[code]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;