Не знал куда написать, поэтому пишу сюда. Помогите разобраться с RichEdit В общем проблема следующая. Пытаюсь организовать прокрутку текста скролом мыши если ScrollBars:= ssNone
В обработчике движения мыши делаю так:
procedure TForm1.RichEdit1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin SendMessage(RichEdit1.Handle,EM_LINESCROLL,0,1); end;
Прокручивает, но сперва компьютер зависает минуты на три. В чём дело не пойму. Та же проблема с клавишами pageup, pagedown и сочетанием Ctrl+a Виснит даже если загружен маленький текст и стоит скролбар. Может вы подскажете как избавиться от такой проблеммы.
Добавлено (13.06.2012, 11:02) --------------------------------------------- Странно. Всё переделал вновь и нормально заработало.
xaramamburu, Уже разобрался Пришлось только всё заново сделать. Странно то, что на седьмой винде всё нормально работало, а вот на всех XP где пробовал висло ужасно.
Добавлено (13.06.2012, 15:50) --------------------------------------------- Хотя у меня будет к вам один вопрос Можно ли как-нибудь скрывать элементы управления ( например кнопки) если курсор какое-то время не активен?
.
