Moin,
in den event handler für das Ereignis OnDocumentComplete() gehört eine Bedingung:
Delphi-Quellcode:
procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
with Sender
as TWebBrowser
do
if pDisp = DefaultInterface
then
begin
// ...
end;
end;
Grüße vom marabu