Перемещение TPanel

← →
AlexanderSK © (2002-04-23 17:17) [0]

Проблема в следующем: есть Panel, на которой лежит куча Label-ов. При перемещение панли (в лоб Top := Top + 10) все это щастье при перерисовке жутко мигает! Можно ли с этим как-то бороться?

← →
MBo © (2002-04-23 17:32) [1]

DoubleBuffered:=True;

← →
PaRL © (2002-04-23 18:01) [2]

Не.
ReleaseCapture; Panel1.Perform(WM_SYSCOMMAND, $F012, 0);

← →
AlexanderSK © (2002-04-23 18:09) [3]

Не не помогает ни то ни другое!
А:
ReleaseCapture;
Panel1.Perform(WM_SYSCOMMAND, $F012, 0);

на сколько я помню используется для перетакивания мышью!

← →
olden © (2002-04-23 18:11) [4]

еще пара рецептов
1) перемещении отрисовывай только обрамляющую рамку (DrawFocusRect)
2) Panel1.ControlStyle := Panel1.ControlStyle + [csOpaque];

← →
PaRL © (2002-04-23 18:15) [5]

> на сколько я помню используется для перетакивания мышью!

Дык а что надо то???
Он не сказал как именно он хочет перемещать её...
Так бы и написал, что не мышкой, а то сидишь тут пальцы мозолишь - пишешь :)

← →
olden © (2002-04-23 18:17) [6]

Черт! Читаю невнимательно :)
Используй не Top := , Left :=
а Panel1.SetBounds
Тогда перемещение произойдет мгновенно

Всем спасибо! Насамом деле все оказалос проще!

> Всем спасибо! Насамом деле все оказалос проще!

Дак расскажи. Вместе посмеёмся :)

Как выяснилось все дело в Фокусе!
т.е. Есть форма, на ней фрейм, на нем панель (та самая).
Так вот: Frame.SetFocus; (или Panel.SetFocus; - высеравно) - начинается моргание.
Form.SetFocus; - моргание заканьчивается.

Перемещение TPanel Найти похожие ветки