27.04.2010, 00:38
|
|
Участник форума
Регистрация: 11.07.2009
Сообщений: 175
С нами:
8860159
Репутация:
185
|
|
SkyLine32
Используй компонент таймер, событие OnTimer(свойство интервал = 5000):
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
j:=j+1;
if j = n then
begin
i := i+1;
j:=1;
end;
Label1.caption:=StringGrid[i,j];
end;
Или можно еще через Sleep(time);
но программа будет "подвисать"
Последний раз редактировалось h(f)ucker; 27.04.2010 в 00:42..
|
|
|