Мерцание при перерисовке [D7, WinXP]
Eisdolch © (2007-10-24 14:47:00)
Возникла небольшая проблема.
У меня имеется несколько 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:00) [1]
Не проще ли все свои ричэдиты кинуть на TScrollBox и не
париться с ручной обработкой скроллинга и всякими там "мерцаниями"
?
Наверх 
ЧАТ |
Орешник |
|
