Twebbrowser Problem...

[Asatru]

Zitat von marabu:

Delphi-Quellcode:

procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := false;
end;

procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if pDisp = WebBrowser.DefaultInterface then
    DocumentLoaded := true;
end;

Grüße vom marabu

Wie müsste es eigentlich aussehen, wenn man den Webrowser von einer Form2 aus steuern würde? Also durch ein ButtonClick auf eine Webseite Changed und von der Form 2 aus

Delphi-Quellcode:

  repeat
    Application.ProcessMessages;
  until DocumentLoaded;

sagen möchte