TWebbrowser - on document complete

[s-off]

Hallo,

dafür ist das TWebbrowser.OnDocumentComplete-Event zuständig.

Beachte aber, dass dieses bei mehrframigen Seiten für das Fertigladen jedes Frames eintritt, sowie zum Schluss für das komplette Dokument.

Edit:
So kannst Du Frames und komplettes Dokument voneinander abgrenzen

Delphi-Quellcode:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurWebrowser: IWebBrowser;
  TopWebBrowser: IWebBrowser;
  Document: OleVariant;
  WindowName: string;
begin
  CurWebrowser := pDisp as IWebBrowser;
  TopWebBrowser := (Sender as TWebBrowser).DefaultInterface;
  if CurWebrowser = TopWebBrowser then
    ShowMessage('Complete document was loaded')
  else
  begin
    Document := CurWebrowser.Document;
    WindowName := Document.ParentWindow.Name;
    ShowMessage(Format('Frame "%s" was loaded', [WindowName]));
  end;
end;

Quelle:SwissDelphiCenter