Quelltext einer Webpage in Richedit anzeigen

[marabu]

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