Воскресенье, 22.10.2017, 05:31
Приветствую Вас Гость

Не ошибается тот, кто ничего не делает.
Но и ничего не делать - ошибка.

Эмиль Кроткий

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Delphi » Разное » Проблема с RichEdit
Проблема с RichEdit
Filo$oFДата: Среда, 13.06.2012, 11:02 | Сообщение # 1
Лейтенант
Группа: Пользователи
Сообщений: 61
Репутация: 2
Статус: Offline
Не знал куда написать, поэтому пишу сюда. smile
Помогите разобраться с 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Дата: Среда, 13.06.2012, 13:52 | Сообщение # 2
Полковник
Группа: Администраторы
Сообщений: 240
Репутация: 26
Статус: Offline
Filo$oF,
К сожалению, тут я вам помочь ни чем не могу sad .
 
Filo$oFДата: Среда, 13.06.2012, 15:50 | Сообщение # 3
Лейтенант
Группа: Пользователи
Сообщений: 61
Репутация: 2
Статус: Offline
xaramamburu,
Уже разобрался smile
Пришлось только всё заново сделать.
Странно то, что на седьмой винде всё нормально работало, а вот на всех XP где пробовал висло ужасно.

Добавлено (13.06.2012, 15:50)
---------------------------------------------
Хотя у меня будет к вам один вопрос smile
Можно ли как-нибудь скрывать элементы управления ( например кнопки) если курсор какое-то время не активен?

 
Форум » Delphi » Разное » Проблема с RichEdit
Страница 1 из 11
Поиск:


Copyright MyCorp © 2017Конструктор сайтов - uCoz