Как принудительно перерисовать форму.

[IliaIT]

1. программа в delphi 7
2. есть 1 форма в программе.
3. используется компонент delphiX, а точнее 20 AnimatedImage и 6 RxSwitch.
4. при установлении компонента AnimatedImage в свойстве Activate=true на форме перестают перерисовываться элементы Shape и Label. (тоесть если форму закрыть каким либо окном, а потом сдвинув это окно посмотреть на форму, то на ней ничего нет кроме компонентов AnimatedImage и RxSwitch, так же можно свернуть форму и развернуть её, эффект тот же).
5. Если делать анимацию "не стандартным способом", тоесть просто повесить на форму стандартный таймер и в обработке изменять номер отображаемой картинки анимации, то форма отображается нормально. данный глюк хоть и присутствует но проявляется только изредка. интервал события таймера и интервал в AnimatedImage одинаковые и = 40. Пробовал ставить 100, ситуация не менялась.
6. Как принудительно обновить форму, пусть даже по таймеру?
7.пробовал ставить на форму таймер с интервалом 1000 и в событии писать

  form1.Refresh;
  form1.UpdateActions ;
  form1.Update;

[Terran]

Попробуйте

Form1.Repaint;

Или

Application.ProcessMessages;

Если не поможет, то можете попробовать перерисовывать не всю форму, а только объекты на ней. К примеру:

Label1.Refresh;

[IliaIT]

вобщем как ни странно помог

Form1.Repaint;

Но так как появляется мерцание, то поступил немного по другому.

Поставил 2 таймера один обрабатывает объекты AnimatedImage для анимации с интервалом 60, а другой с интервалом 5-10 секунд обновляет форму. тогда мерцание не бросается в глаза.