вариант хороший и может даже лучший, но весь вопрос "как?" Стену нужно строить так, чтоб подпирать... или как говаривали классики "главное леса не убирайте пока обои не поклеите"...

Это сообщение отредактировал(а) drkot - 6.8.2014, 01:25

Не сударь, так мусье  Я накидал первый пришедший в голову код и, само собой, скопипастил из IDE, не заморачиваясь что там по нажатию Ctrl+Shift+C среда создала inherited или же что переменную я не объявил в локальных. Просто быстрый код и ничего более. Кстати, вот Alexeis вполне внятно объяснил почему в данном конкретном случае такой код является не очень хорошим и лучше было бы обрабатывать WM.
...Помнится, когда я был курсе на 4м и изучал предмет Автоматика, был дико поражен тем, КАК можно задачу за 2й класс по математике, где из двух труб вода наливается в бассейн, а из третьей выливается, извратить до ужасного вида дифференциальных уравнений второго порядка. Так и тут, простую задачу чуть ли не через ассемблерные вставки решаем 

1) ты приращиваешь строго по 1 секунде? ну так приращивай больше, ускорять таймер смысла нет никакого
2) разрешение таймера по дефолту 15.6 ms, так что твоя "1" (и любое число до 15 включительно) на самом деле = 15.6
3) ускорять нет смысла, т.к. длительность 1 кадра при стандартной развертке 60 кадров в секунду = 1000ms/60 = 16.666 ms, а больше 60 кадров ты хоть как не сможешь на экране увидеть (хоть скоростной киносъемкой его снимай) 


Это сообщение отредактировал(а) PointerToNil - 6.8.2014, 13:50

гыы... простых задач не бывает.

VCL это мало динамичное средство, так как вся работа по "принуждению" вынесена в ядро, а программист пишет только бизнес логику. Для самых тяжелых компонентов сделала возможность на время изменения отключить перерисовку. 
Отсюда вывод: динамичная перерисовка в VCL возможна только при перекрытии в наследнике.

решение с потоком может выглядеть следующим образом:
поток в цикле вызывает Invalidate для компонента
и ждет на waitforobject(ивент) // ивент с автосбросом
также можно добавить небольшой sleep которые определит частоту перерисовки

функция перерисовки (например в TPaintBox)
вычисляет значение таймера
рисует значение таймера
дергает ивент

в результате никакого мерцания + быстрая перерисовка
чтобы создать эффект "размытости" можно рисовать старое значение в виде тени (более светлым)
тогда при низкой скорости обновления (5-10 кадров) можно достичь ощущения "размытости"

Добавлено через 1 минуту и 34 секунды
PointerToNil, о вот и капитан очевидность