delay в delphi

[trafbite]

Что-то не пойму:
В событие oncreate добавляем

var
View:byte;

добавляем таймер. на кнопку вешаем:
begin
if view<10 then
begin
inc(view);{увеличиваем на 1 за каждый цикл}
Form1.Caption:=Form1.Caption+'*';
for i :=1 to 5 do begin
webbrowser1.navigate('http://ya.ru');
sleep(5000);
end;
end
else
begin
Timer2.Enabled:=false;
view:=0;
end;end;

Так? А то у меня че то не получается...

[Alex21]

var
  Form1: TForm1;
  view:byte;
implementation
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   view:=0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if view<10 then
  begin
    inc(view);
    Form1.Caption:=Form1.Caption+'*';
    webbrowser1.navigate('http://www.ewrewrwrya.ru');
  end
  else
begin
  Timer1.Enabled:=false;
   view:=0;
end;

[trafbite]

Так она так все равно только один раз открывает страницу и все...

[Net]

хм.. Application.ProcessMessages должен помочь.

[trafbite]

Это что и каким образом он здесь может помочь?

[Alex21]

меняем местами строчки:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if view<10 then
  begin
    WebBrowser1.Navigate('about:blank'); {можно и это добавить}
    webbrowser1.navigate('http://www.ewrewrwrya.ru');
    inc(view);
    Form1.Caption:=Form1.Caption+'*';
 end
  else
begin
  Timer1.Enabled:=false;
   view:=0;
end;

[trafbite]

Да ну нифига! ((((
Все равно один раз только грузит и все.

[trafbite]

Да ну нифига! ((((
Все равно один раз только грузит и все.

[Alex21]

Добавь Мемо и посмотри на код. Цикл равен 4 (для 10 продолжи case до 9). Т.е. на каждый шаг цикла грузим новый сайт.(для наглядности). (* в заголовке формы, просто отображение цикла). У меня работает.

procedure TForm1.Timer1Timer(Sender: TObject);
var s:string;
begin
if view<=3 then
  begin
  case view of
  0: S:='http://www.site0.ru';
  1: S:='http://www.site1.ru';
  2: S:='http://www.site2.ru';
  3: S:='http://www.site3.ru';
 end;
    webbrowser1.navigate(s);
    inc(view);
    Form1.Caption:=Form1.Caption+'*';
    Form1.Memo1.Lines.Add(Form1.WebBrowser1.LocationName);
  end
  else
begin
  Timer1.Enabled:=false;
   view:=0;
end;

[trafbite]

Согласен, что браузер грузит эти сайты продряд. Но он это делает только при нажатии кнопки, т.е. нажал-первый сайт, нажал-второй сайт и т.д. А нужно то что бы он грузил один и тот же сайт, только с перерывом, т.е. загрузил, подождал 10 сек, опять загрузил... Автоматически, без нажатий на кнопку... Вот поэтому и спрашиваю про delay, ведь с ним все было бы гораздо проще: запихнул navigate в цикл и поставил delay. Так же наверное можно сделать?