ブラウザ表示までにかかった時間 (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;