webbrowser

[Barabashka]

Добрый вечер!

Procedure www;
webbrowser1.Navigate('www.111');
webbrowser1.Navigate('www.222');
end;

Вопрос: Кто подскажет как сделать так что бы эти 2 действия выполнялись не сразу а поочереди? То есть сразу выполнилаось 1 действие а через 1-5 сикунд 2 ?

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

есть такое событие, называется onDocumentComplete

[grafgrial]

Ну то есть вот так!

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate('www.grafgrial.bos.ru');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
webbrowser2.Navigate('www.grafgrial.bos.ru');
end;

[mss]

webbrowser1.Navigate(..);
while webbrowser1.Busy do Application.Processmessages;
webbrowser1.Navigate(..);