Ver Mensaje Individual
  #11  
Antiguo 14-06-2006
Avatar de Insomne
Insomne Insomne is offline
Registrado
 
Registrado: jun 2006
Ubicación: Madrid
Posts: 4
Reputación: 0
Insomne Va por buen camino
Hola

Tu pregunta es antigua, pero por ai acaso te mando un codigo del evento OnDocumentComplete que pille por ahi. Funciona con marcos tambien.
Un saludo.

Código Delphi [-]
procedure TForm1.Wb1DocumentComplete(Sender: TObject;
               const pDisp: IDispatch; var URL: OLEvariant);
var
  CurWebrowser : IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document     : OLEvariant;
  WindowName   : string;
begin { TForm1.WebBrowser1DocumentComplete }
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
  if CurWebrowser=TopWebBrowser then
  begin
    ShowMessage('Document is complete.');
    FCambiandoDePag := FALSE;
  end
  else
  begin
    Document := CurWebrowser.Document;
    WindowName := Document.ParentWindow.Name;
    ShowMessage('Frame ' + WindowName + ' is loaded.')
  end;
end;
Responder Con Cita