RzPageControl多标签,使用Dll窗体释放问题

[vonyao]

Dll的调用函数 ,返回类型为 TForm

function LoadUsers(AHandle:THandle; con: TADOConnection): TForm; stdcall;
  var frm: TUsers;
begin
  result:= nil;
  Application.Handle:= AHandle;
  frm:= TUsers.Create(Application);
  frm.ADOQuery1.Close;
  frm.ADOQuery1.Connection:= con;
  frm.ADOQuery1.Open;
  result:= frm;
end;

主程序新建标签加载返回的Form

procedure TMain.LoadForm(frm: TForm; Control: TRzPageControl);
  var page: TRzTabsheet;
begin
  page:= TRzTabsheet.Create(Control);
  page.Name:= frm.Name + 'A';
  page.Caption:= frm.Caption;
  page.PageControl:= Control;
  frm.BorderStyle:=bsNone;
  Windows.SetParent(frm.Handle,page.Handle);
  //frm.ParentWindow:= page.Handle;             
  //frm.Parent:= Page;                        
  frm.WindowState:= wsMaximized;
  try
    page.Show;
    frm.Show;
  except
    frm.Free;
  end;
end;

在设置dll返回Form的parent的时候用下面这两句老少出现各种错误
//frm.ParentWindow:= page.Handle;
//frm.Parent:= Page;
现在又SetParent到时没有问题

但是关闭便签的时候
procedure TMain.RzPageControl1Close(Sender: TObject;
var AllowClose: Boolean);
begin
AllowClose:= true;
end;

Dll返回的窗体没有执行OnFormClose的Action:=caFree; self:= nil;

不设置返回Form的parent貌似也不能通过主窗体便签的
Page.Controls[i]找到dll返回的Form, Page.controlCount 为0

请教高手.怎么修改才能释放返回的Dll窗体, 怎么才能设置Form的Parent才不会报错.