掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ブラウザ表示までにかかった時間 (ID:36483)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
完了は「Complete」です。イベントは三つありますね。お好きなものをどぞ private { Private 宣言 } StartCount:DWord; --------------- procedure TForm1.Button1Click(Sender: TObject); begin StartCount:=GetTickCount; WebBrowser1.Navigate('http://google.com'); end; procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin Memo1.Lines.Add('NavigateComplete2 = '+IntToStr(GetTickCount-StartCount)); end; procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin Memo1.Lines.Add('DocumentComplete = '+IntToStr(GetTickCount-StartCount)); end; procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject); begin Memo1.Lines.Add('DownloadComplete = '+IntToStr(GetTickCount-StartCount)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.