[morebeauty]

Вот кусок кода

Код:

   Perform(WM_SETREDRAW,0,0);
   for i:=0 to High(ga) do
   begin
     if ga[i].value<>'0' then AddEl(ga[i].value);
   end;
   Perform(WM_SETREDRAW,1,0);
   Form1.Refresh;

Вначале отключается перерисовка формы.
В цикле создается некоторое количество компонентов TPanel (порой большое количество). Для более быстрой работы и решил отключать перерисовку.
Но в конце форма не перерисовывается (созданные компоненты не отображаются, ХОТЯ СОЗДАЮТСЯ). При клике по ним мышью, меняется их стиль, и они появляются.

Подскажите из-за чего может быть проблема?

[lmikle]

Я пользовался LockWindowUpdate().
В твоем случае можно просто вызвать Invalidate или Update для формы в конце процедуры.

[morebeauty]

Код:

   Perform(WM_SETREDRAW,0,0);
   for i:=0 to High(ga) do
   begin
     if ga[i].value<>'0' then AddEl(ga[i].value);
   end;
   Perform(WM_SETREDRAW,1,0);

   Form1.refresh;
   Form1.Update;
   form1.Invalidate;

Не помогло.

[Pyro]

можно каждую панель refresh

[morebeauty]

А еще можно не отключать перерисовку... тогда даже быстрее будет )