Форум: "Основная";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];

Вниз

Мерцание при перерисовке   Найти похожие ветки 

← →
Eisdolch ©   (2007-10-24 14:47) [0]

Возникла небольшая проблема.
У меня имеется несколько RichEdit. Мне нужно передвинуть их вверх с помощью TScrollBar.
Я сделал так:
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
RichEdit1.Top:=-RichEdit1.Top-ScrollBar1.Position;
RichEdit2.Top:=-RichEdit2.Top-ScrollBar1.Position;
RichEdit3.Top:=-RichEdit3.Top-ScrollBar1.Position;
end;      
Но когда начинаю прокручивать ScrollBar, то возникает мерцание. Подскажите, пожалуйста, как от этого мерцания избавиться.

---

← →
Сергей М. ©   (2007-10-24 14:50) [1]

Не проще ли все свои ричэдиты кинуть на TScrollBox и не париться с ручной обработкой скроллинга и всякими там "мерцаниями" ?

---

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

Форум: "Основная";
Текущий архив: 2008.01.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c