Привет всем!

Мне необходимо сделать аналоговые часы. В общем у меня все получилось. У меня на отдельном пробнике даже стрелочки красивые есть. Осталась, онда мелочь.
При перерисовки происходит мерцание! Как от него избавиться???

Вот мой исходник с ехе файлом ~ 168 Кб

Procedure TForm1.FormCreate(Sender: TObject);
Begin
   DoubleBuffered := True;
   ...
End;

Большое Спасибо!

Все работает, есть маленькие мерчания, но они практически незамны. А так ОК!

Используй задний буффер для избавления от мерцания...