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