Ver Mensaje Individual
  #3  
Antiguo 01-11-2006
marlok marlok is offline
Registrado
 
Registrado: dic 2005
Posts: 8
Reputación: 0
marlok Va por buen camino
Thumbs up Gracias Roman!

Gracias che, encontré la solución al poco tiempo de postear la inquietud, y justamente lo solucioné de la manera que vos proponés, aunque un poco distinta pero el concepto es el mismo.
Al final definí la funcion showPopupWeb(Appdisp: Idispatch): boolean;
Para poder crear popus o ventanas emergentes desde el main, y opcionalmente desde el mismo popup creado, ya que esto lo requeria la pagina que accedo.(esta funcion se llama desde el OnNewWindow2 del browser)
Pongo el codigo por si alguien necesita hacer lo mismo, espero les sirva.

Código Delphi [-]
function showPopupWeb(var appDisp: IDispatch):boolean;
var ThePopup : TFormPopup;
begin
  result:= false;
  try
    ThePopup := TFormPopup.Create(application);
    ThePopup.Browser.RegisterAsBrowser:= true; 
    appDisp := ThePopup.Browser.Application; 
    ThePopup.show;
    result:= true;
    except: result:= false
  end;
end;
Responder Con Cita