DLL调用，窗体显示。可是主程序关闭的时，窗体这个对象该如何释放？

Question

DLL 接口函数
function LoadDllForm(AHandle, AParent: HWnd): TForm; stdcall;
 begin
   Application.Handle := AHandle;
   Application.CreateForm(TfrmTest, frmTest);
   try
     frmTest.ParentWindow := AParent;
     frmTest.BorderStyle := bsNone;
     frmTest.WindowState := wsMaximized;     frmTest.Show;     Result := frmTest;
   except
     Result := nil;
     frmTest.Free;
   end;
 end;主程序采用静态调用
DLL接口函数申明
function LoadDllForm(AHandle, AParent: HWnd): TForm; stdcall; external 'TestDLL.dll'主程序调用
frmDllForm:= LoadDllForm(Application.Handle, Panel1.Handle);主程序显示都正常，可是程序关闭的时候，我怎么释放frmTest对象呢？直接frmDllForm.Free只是frmTest父对象的注销函数啊

Answer 1

一般遵循哪里创建，哪里释放的原则，你可以把创建的窗口句柄保存起来，然后再写一个方法，Export出去，传递句柄，然后再你内部找到对应的窗体，然后DLL中释放。也就是说，你上面的LoadDllForm返回一个Handle，然后再写一个FreeDLLForm，参数为LoadDllForm返回的句柄，然后自己去处理

Answer 2

囧，你DLL中自己保存一下就行了啊，用一个Hash保存一下就是了，然后根据句柄找到你保存的对象释放就行了！

Answer 3

//伪代码
var 
   List: TStringList;function LoadDllForm(AHandle, AParent: HWnd): THandle; stdcall;
 begin
   Application.Handle := AHandle;
   Application.CreateForm(TfrmTest, frmTest);
   try
     frmTest.ParentWindow := AParent;
     frmTest.BorderStyle := bsNone;
     frmTest.WindowState := wsMaximized;     frmTest.Show;     Result := frmTest.Handle;
     if list= nil then
     begin
         list := TStringList.create;
     end;
     list.AddObject(inttostr(Result),frmtest);
   except
     Result := nil;
     frmTest.Free;
   end;
 end;procedure LoadDllForm(AHandle: HWnd); stdcall;
begin
   if list <> nil then
   begin
     idx  := list.indexof(inttostr(AHandle));
     if idx <> -1 then
       List.Objects[idx].free;
   end;
end;
都说的很明白了，还非要给出代码自己需要多思考一下的说。

Answer 4

procedure TForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
  FmPrint := nil;
end;