Скачать: CL | DM;

Перемещение 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
Тогда перемещение произойдет мгновенно

---

← →
AlexanderSK ©   (2002-04-24 13:25) [7]

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

---

← →
PaRL ©   (2002-04-24 14:08) [8]

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

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

---

← →
AlexanderSK ©   (2002-04-24 14:16) [9]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c