WebBrowser Navigate の完了の取得方法

解決

白本 2010-01-23 02:12:12 No: 37177 IP: 192.*.*.*

大変初歩的なことかもしれませんが
WebBrowser Navigate の完了の取得方法がしりたいです。

初回のみではなく、連続してナビゲートした際もつど読み込み完了を
取得したいです。

よろしくおねがいします。

編集削除

igy 2010-01-23 07:13:20 No: 37178 IP: 192.*.*.*

試していませんが、

ブラウザ表示までにかかった時間
https://www.petitmonte.com/bbs/answers?question_id=6669

で、けどさんが書かれたのは、いかがですか？

編集削除

あ 2010-01-23 15:03:42 No: 37179 IP: 192.*.*.*

https://www.petitmonte.com/bbs/answers?question_id=6669
で問題なく動く。

編集削除

白本 2010-01-23 15:59:43 No: 37180 IP: 192.*.*.*

igy様あ様ありがとうございます。

引用リンクで動作確認しました、procedureで処理する以外
たとえば、

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://google.com');
  「このぶぶん」
end;

などに記入して動作させるほうほうはないでしょうか？
なぜ、そうしたいかといいますと

procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://1111.com');
  「完了待ち」
  WebBrowser1.Navigate('http://2222.com');
  「完了待ち」
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://3333.com');
  「完了待ち」
  WebBrowser1.Navigate('http://4444.com');
  「完了待ち」
end;

としたいのですが、よろしくお願いします。