delay в delphi

[Net]

Вот так попробуй:

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);
    Application.ProcessMessages;
  end
  else
begin
  Timer1.Enabled:=false;
   view:=0;
end;

Ну и в таймере ж не забыли Interval=10000 поставить.

[SERG1980]

Попробуй в своём примере добавить следущую строку
for i:=1 to 10 do begin
sum:=a+b;
application.ProcessMessages;
sleep(1000);
end;

[Alex21]

Net, SERG1980, ProcessMessages там действительно, не нужен!
Его предпочтетельней в цикл загонять, а в моем примере приложение - не "подвисает" на цикле. Проверить очень просто - новый таймер (10мс) : inc(X) и вывод Х в Label.

trafbite, проверь интервал. Вообщем ставь побольше(от 10сек), а то у тебя может не успевает страницу загрузить. На кнопку нажимать надо только первый раз, чтоб запустить таймер.

[Aleksandr]

.Можно использовать и Delay

procedure Delay(ms : longint);
           var
             TheTime : LongInt;
           begin
             TheTime := GetTickCount + ms;
 
             while GetTickCount < TheTime do
               Application.ProcessMessages;
 
           end;

А вызываешь как в Pascal
Delay(5000);

[Romer9999]

Ну или так. Помойму незаменимая вещь. Вызов: Delay(100);

procedure Delay(dwMilliseconds: Longint);
 var
   iStart, iStop: DWORD;
 begin
   iStart := GetTickCount;
   repeat
     iStop := GetTickCount;
     Application.ProcessMessages;
   until (iStop - iStart) >= dwMilliseconds;
 end;