Не открываеться страница [TWebBrouser]

[Lemo]

На клик кнопки поставил...

WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xxx');
WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=xxx');
//до сюда доходит, а дальне не загружает страницу...
WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xxx');
WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=xxx');

[Пепел Феникса]

которую грузит?
последнюю?))
ведь он не ждет пока первая страница загрузится, а лишь дает команду начать грузить, а вы далее даете команду грузить другое, в итоге плюет на первое и грузит другое.

[Lemo]

у меня он как то странно грузит
А если я допустим хочу

WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xxx');
WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=xxx');

как только все загружено сделать определенные действия.... И так дальше - грузим все+выполняем какие то действия...

ЗЫ сам юзаю процедуру WebBrowser1DocumentComplete, но ефект не такой какой хочю

[Пепел Феникса]

ЗЫ сам юзаю процедуру WebBrowser1DocumentComplete, но ефект не такой какой хочю

как в ней загрузили тогда и именно тогда делаем новый запрос.

[Lemo]

Клик на кнопку

WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xxx');
WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=xxx');
if (страница загружена полностью = тру) then .....

[Пепел Феникса]

WebBrowser1.Navigate('http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xx x');
WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=xxx');

грузит сразу вторую.

if (страница загружена полностью = тру) then .....

проверка пройдет еще до окончательной загрузки.

вам нужно чтото типа счетчика.
var Stage:integer=0;
в OnDocumentComplete

case Stage of
0:WB.Navigate(...);//второй запрос
...
end;
inc(Stage);

в начале этого "цикла" обнуляем переменную(если будет повтор) и делаем первый запрос

[Lemo]

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var

  f:boolean;
begin
st1:='http://vkontakte.ru/login.php?email=xxx@mail.ru&pass=xxx';
st2:='http://vkontakte.ru/login.php?email=yyy@mail.ru&pass=yyy';

   f:=false;

  if f=false then
    begin
       WebBrowser1.Navigate(st1);
       WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=ttt');
       f:=true;
    end;

   if f=true then
     begin
     WebBrowser1.Navigate(st2);
     WebBrowser1.Navigate('http://vkontakte.ru/mail.php?act=write&to=jjj');
    end;


  Свои_Действия!
end;

Красным цветом - не выполняеться, а должно ...