|
|
|
<font face="Verdana">很多人认为，在Delphi的DLL中加载MDI子窗体时，需要注意保存并恢复Delphi全局变量（Application和Screen）对象。其实，根本没有办法在DLL中加载MDI子窗体。<br/>原文出处：http://delphi.about.com/library/weekly/aa020805a.htm<br/> 在开发复杂的应用系统时，把系统分为各个模块分而制之是一种很平常的策略，这样就可以使得每个模块负责一套业务逻辑。模块可以是一个DLL，在需要的时候，主程序可以调用这个DLL以使用该模块。<br/> 当你开发一个MDI应用程序，并希望把该应用程序分割成各个模块时，自然会有这样的疑问：“如何将MDI子窗体创建在DLL中，以使得在必要的时候能够被主程序调用？”<br/> 如果你已经知道如何在DLL中创建非MDI子窗体的窗体，并且也知道如何从主程序调用这个DLL中的窗体时，你或许会认为问题已经得到了解决，但事实并非如此。<br/> 如何让DLL中的MDI子窗体得知哪个窗体是它的父窗体（以便让其能够以子窗体的形式展现出来）？用于创建该子窗体的Application对象（位于父窗体所在的应用程序中）与你在DLL中获得的Application对象根本就是两回事情，不仅如此，两者的Screen对象也不相同。<br/>想要在DLL中保存并创建MDI子窗体？没门！<br/> 就如你所看到的这个标题所说的一样，根本就没有办法在DLL中保存并创建MDI子窗体，然后让MDI应用程序去调用它。或者你会说，你已经在网上找到一些资料，上面显示如何保存并传递Application对象，以使得DLL中的MDI子窗体能够被创建于正确的MDI父窗体中，其实这种做法并不奏效，至少在Delphi 5以上的版本中不会奏效。<br/>那么解决方案是什么呢？<br/> 如果你非要在DLL中保存并创建MDI子窗体，那么你需要在主程序（MDI应用程序）和DLL生成的时候，与运行时包（runtime package）一起生成。这样做就确保了主程序和DLL使用了共同的Application和Screen对象，并使用了相同的RTL与VCL实例。为了100%确保“安全”，你应该使用包，而不是DLL。<br/>包中的MDI子窗体：唯一正确的解决方案<br/> Delphi的包是一种特殊的DLL，它仅用于Delphi的应用程序。如果你的应用程序模块是使用包的形式开发而不是DLL，那么所有的模块都会共享同一个内存管理机制，包括了VCL全局对象（例如Application和Screen）以及RTL与VCL在内存中的同一代码拷贝。<br/>包中的MDI子窗体：实例<br/> 现在来看一个实例，首先，我们将创建一个MDI应用程序：<br/>1、 创建一个新的MDI应用程序。你可以使用MDI应用程序创建向导（File - New - Other - Projects - MDI Application）<br/>2、 确保主窗体的FormStyle属性已经设置为fsMDIForm<br/>3、 添加一个MainMenu控件，使其只有一个用于从包中加载子窗体的菜单项<br/>4、 确保在生成应用程序的时候，是和运行时包一起生成的。在Project – Options菜单中，选择Packages选项卡，然后选中“Build with run-time packages”选项。你至少要选中rtl包和vcl包<br/>在真正编码前，首先生成该包，并且向其添加一个MDI子窗体<br/>1、 创建一个新的运行时包<br/>2、 向包添加一个TForm对象，确保该对象的FormStyle属性已经设置为fsMDIChild<br/>3、 添加一个导出过程，用于创建子窗体的实例：<br/>procedure TPackageMDIChildForm.FormClose<br/>(Sender: TObject; <br/> var Action: TCloseAction);<br/>begin<br/>//since this is an MDI child, make sure <br/>//it gets closed when the user <br/>//clicks the x button.<br/>Action := caFree;<br/>end;<br/>procedure ExecuteChild;<br/>begin<br/>TPackageMDIChildForm.Create(Application);<br/>end;<br/>exports<br/>//NOTE!! The export name <br/>//is CASE SENSITIVE<br/>ExecuteChild;<br/>end.<br/> 重新回到MDI主程序，以下是MDI主窗体的所有代码：<br/>type<br/>//signature of the "ExecuteChild"<br/>//procedure from the Package<br/>TExecuteChild = procedure;<br/>TMainForm = class(TForm)<br/> ...<br/>private<br/> PackageModule : HModule;<br/> ExecuteChild : TExecuteChild;<br/> procedure PackageLoad;<br/>end;<br/>var<br/>MainForm: TMainForm;<br/>implementation<br/>{$R *.dfm}<br/>procedure TMainForm.PackageLoad;<br/>begin<br/>//try loading the package<br/>//(let's presume it's in the same<br/>//folder, where the main app. exe is)<br/>PackageModule := LoadPackage('MDIPackage.bpl');<br/>//if loaded, try locating<br/>//the ExecuteChild procedure<br/>if PackageModule <> 0 then<br/>try<br/> @ExecuteChild := GetProcAddress(PackageModule,<br/> 'ExecuteChild');<br/>except<br/> //display an error message if we fail<br/> ShowMessage ('Package not found');<br/>end;<br/>end;<br/>//menu click<br/>procedure TMainForm.mnuCallFromDLLClick<br/>(Sender: TObject);<br/>begin<br/>//lazzy load package<br/>if PackageModule = 0 then PackageLoad;<br/>//if the ExecuteChild procedure<br/>//was found in the package, call it<br/>if Assigned(ExecuteChild) then ExecuteChild;<br/>end;<br/>procedure TMainForm.FormDestroy(Sender: TObject);<br/>begin<br/>//if the package was loaded,<br/>//make sure to free the resources<br/>if PackageModule <> 0 then<br/> UnloadPackage(PackageModule);<br/>end;<br/> 上面的代码中，选中菜单项时，主程序动态地加载了所需的包（使用PackageLoad过程），并且在应用程序终止的时候卸载了已经加载的包。最后，在运行时，我们得到了一个能够正确加载并运行包中MDI子窗体的应用程序。<br/> 最后需要说明的是，在使用runtime package模块化应用程序时，你必须将所需的包与应用程序的exe文件一起发布。</font> |
|
发表于 2009-7-26 12:48:58