如何获得Activex父页面对象

如何获得Activex父页面对象

procedure TFeSendFrmX.open;
var
  browser: IWebBrowser2;
  isp: IServiceProvider;
  ifesend: IFeSendFrmX;

  str: string;
  wstr: WideString;
begin
  hnd := self.handle;
  FrmUpLoad := TFrmUpLoad.Create(self);
  with FrmUpload do
  begin
    isp := ActiveFormControl.ClientSite as IServiceProvider;
    if (isp.QueryService(IWebbrowserApp, IWebbrowser2, browser) = S_OK) then
    begin
      doc:= browser.Document as IHTMLDocument2;
    end;
    //show;
    ShowModal;
    Destroy;
  end;
end;