mehrere TwebBrowser zur laufzeit erzeugt von wem kommt event

[BBoy]

Habe es nun hinbekommen, meine procedure sieht nun so aus und funktioniert prima. Die lösung war das TEmbeddedWB(asender).

Delphi-Quellcode:

procedure Tform4.DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
  html2.Clear;
  TEmbeddedWB(asender).SaveFrameToStrings(0,html2);
  if pos('login',html2.text) <> 0 then begin
    Showmessage('Login gefunden');
  end;
end;