Тема: sleep!
Показать сообщение отдельно
  #15  
Старый 20.01.2009, 20:08
ApplicatiOn ApplicatiOn вне форума
Активный
 
Регистрация: 28.02.2008
Сообщения: 388
Репутация: -10
По умолчанию

1ый таймер изменяет цвета.
2ой таймер отображает label's (таймер, пример которого дал тебе я)

что непонятного? если их десятки, то:

Код:
var
global: integer=0; {можно byte}

...

procedure TForm1.Timer2Timer(Sender: TObject);
begin
case global of
0: 
begin
label1.show;
self.update;
end;
1: 
begin
label2.show;
self.update;
end;
2: 
begin
label3.show;
self.update;
end;
3: 
begin
label4.show;
self.update;
end;
4: 
begin
label5.show;
self.update;
end;
// и т.д.
end;
global := global+1
end
end;

а в интервале у таймера ставиш 2000 (2 сек)

еще раз повторяю, что это второй таймер...

а в первом меняешь цвета...
Ответить с цитированием