procedure TForm1.BitBtn1Click(Sender: TObject);
var
i : integer;
begin
WebBrowser1.Navigate(WideString('http://www.daum.net'));
for i := 0 to 100 do
begin
webbrowser1.Refresh;
end;
end;
이런식으로 버튼이벤트로요.. 웹페이지를 100번 리프레쉬 시킬려는데요..
웹페이지가 다 뜨고 난다음 다시 리프래쉬 시킬려면 어떻게 하면 될찌...
많은 조언 부탁 드립니다.. 꾸벅...
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
WebBrowser1.Navigate(WideString('http://www.naver.com'));
i := 1 ; //i는 전역변수
Timer1.Enabled := true ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not WebBrowser1.Busy then
begin
Timer1.Enabled := false ;
if i <= 100 then
web_Refresh ;
end ;
end ;
procedure TForm1.web_Refresh;
begin
webbrowser1.Refresh;
inc(j) ;
Timer1.Enabled := true ;
end;
end;