Webページの表示完了を知りたい (ID:39281)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >Refreshの代わりにNavigateというのは確かにその通りですね。頭が固まっていました。 >ただどちらにしても、フレームページでは何度もDocumentCompleteが発生するので、何か考えないと >だめですね。当たり前ですが。 フレームを使用してるWEBページでの対策ならば、 procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var CurWB: IWebBrowser; TopWB: IWebBrowser; sName: string; begin CurWB := pDisp as IWebBrowser; TopWB := (Sender as TWebBrowser).ControlInterface; sName := OleVariant(CurWB.Document).ParentWindow.Name; if CurWB <> TopWB then begin // サブフレーム読み込み(まだミカン) Memo1.Lines.Add(' SubFrame：'+ sName); end else begin // 全フレーム読み込み、いよ！完(イヨカン)だね // …ページ表示完了時の処理… Memo1.Lines.Add('MainFrame：'+ sName); end; end;