DLL中MDI子窗体问题
library BaseInfo;

{ Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your project's (select
Project-View Source) USES clause if your DLL exports any procedures or
functions that pass strings as parameters or function results. This
applies to all strings passed to and from your DLL--even those that
are nested in records and classes. ShareMem is the interface unit to
the BORLNDMM.DLL shared memory manager, which must be deployed along
with your DLL. To avoid using BORLNDMM.DLL, pass string information
using PChar or ShortString parameters. }

uses
ShareMem,
SysUtils,
Classes,
Forms,
Dialogs,
Windows,
Messages,
UBase in '..\Pubs\UBase.pas' {FBase},
USupplier in 'USupplier.pas' {FSupplier},
UTreeCodeSet in '..\Pubs\UTreeCodeSet.pas' {FTreeCodeSet},
UMember in 'UMember.pas' {FMember},
UStorage in 'UStorage.pas' {FStorage},
UCustomer in 'UCustomer.pas' {FCustomer};

{$R *.res}
var
DLLApp: TApplication;

function InitFSupplier(var App: TApplication;ParentForm: TForm): Boolean;export; stdcall;//供应商
begin
try
Application:= App;
if FSupplier=nil then
begin
FSupplier:= TFSupplier.Create(ParentForm);
FSupplier.FormStyle:= fsMDIChild;
FSupplier.WindowState:=wsMaximized;
FSupplier.Show;
end else
begin
FSupplier.Show;
FSupplier.bringToFront;
end;
except
end;
end;

procedure DLLUnloadProc(Reason: Integer); register;
begin
if Reason = DLL_PROCESS_DETACH then
Application:=DLLApp;

end;

exports
InitFSupplier;
begin
DLLApp:=Application;
DLLProc := @DLLUnloadProc;
end.

各位大虾，如上创建MDI子窗体第一次是可以的，但如果关掉子窗口第二次就不会显示出来了，子窗体onclose里
Action:=cafree了，按道理上面代码应该会重新创建一个子窗口啊。这是咋会事呀/
[解决办法]
你可以参考我资源里面的这个例子http://download.csdn.net/detail/feiba7288/5094359
[解决办法]
FSupplier在哪儿定义的?

窗体关闭时后, 给变量赋值 : FSupplier := nil;