Re: TWebbrowser Navigating in loop and onDocumentComplete

"Eddie Shipman" <mr_delphi_developer at yahoo dot com> wrote in message
news:4480a25f@newsgroups.borland.com...

> How would I write this to allow processing of the
> wbDocumentComplete event?

Like this:

    ShellWin := TShellWindows.Create(nil);
    try
        for i := 0 to ShellWin.Count-1 do
        begin
            try
                IE := ShellWin.Item(i) as IWebBrowser2;
                wb.Navigate(IE.LocationURL);
                while wb.ReadyState <> READYSTATE_COMPLETE do
                    Application.ProcessMessages;
            except
            end;
        end;
    finally
        ShellWin.Free;
    end;


Gambit