DELPHI通用模块怎么做怎么调用
能够给出一个最简单的例子，怎么做，怎么调用？
求代码，求说明！
多谢了！
[解决办法]
你说明的通用模块，可以是指下面二种：
一是Dll封装的Form。
二是EXE封装的Form。
二者功能基本一致，但在调用上不同。
相同：（1）都不能共享主程序的变量参数；（2）都与主程序相脱离，操作时不装入内存，只是调用时载入；（3）都具有调用的灵活性，不同的用户，调用不同的模块；
非同：（1）编辑方式不一样，前者Form封装进一个Dll中，后者就是一个执行文件。（2）调用机制不一样；（3）隐藏性不一样，前者比后者强。
本人使用经验上看，偏向后者（EXE模块）。一是它可以单独调试，无主程序也能执行。二是调用方式简单可靠。三是维护简单。为了将做成它与（DLL模块一致），采取措施：（1）调用它时，需加入密码参数，才能进入，这样与Dll模块一样具有保密性了；（2）通过调用参数还可以，向模块传递数据；
[解决办法]
FindForm就和平常一样，如果想做成对话框样式，可以加一个“确定”“取消”按钮。
“确定”的Click:self.ModelResult := mrOK;
“取消”的Click：self.ModelResult := mrCancel;
调用：
uses Find;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TFindForm.Create(application) do
try
case ShowModal of
mrOK: //按了确定的操作
mrCancel: //按了取消或关闭窗口的操作
end;
finally
Free;
end;
end;
