掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
スリープ (ID：32781)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
WebBrowser1.Navigate('http://www.yahoo.co.jp'); WebBrowser1.Navigate('http://www.google.co.jp'); とするとわかるけど だと Yahooを読み終えた後に google を読みにいっているわけじゃないので >WebBrowser1.Navigate('http://yahoo.co.jp'); >Application.ProcessMessages; >sleep(2000); >WebBrowser1.Navigate('http://google.co.jp'); だと Yahooを読む 2秒後に Yahooを読み終えていなくても google を読む となってしまいます。 なので 読み終えてから２秒後に次のを読むようにするには 以下のようにします。 procedure TForm8.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://www.yahoo.co.jp'); Count := 1; end; procedure TForm8.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin Application.ProcessMessages; Sleep(2000); if Count = 1 then WebBrowser1.Navigate('http://www.google.co.jp'); if Count = 2 then WebBrowser1.Navigate('http://www.goo.ne.jp'); Inc(Count); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.