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

名前

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

本文 あ さん、ありがとうございます。試しにこんな風にしてみました。 procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool); begin if WebBrowser1.busy=false then MessageBeep(MB_ICONASTERISK) else MessageBeep(MB_ICONEXCLAMATION); end; ステートが変わると音で分かるのですが、サイトによって上手く機能したりしなかったりしますね。 キャッシュとか、CGIの実行待ちとか、色々あるのかも知れません。 今はとりあえずチェックしたいときだけタイマーを回して、1秒ごとにReadyState=READYSTATE_COMPLETEを チェックするようにしていますが。