Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.25;
Скачать: CL | DM;

Вниз

RichEdit + колесо мыши   Найти похожие ветки 

 
DimaK ©   (2004-02-12 17:24) [0]

Добрый день, необходимо сделать прокрутку в RichEdit с помощью колесика мыши. Делаю так:

procedure TFMain.RichEdit1MouseWheelDown(Sender: TObject;
Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
// Прокрутка текста колесом мыши вниз
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_PAGEDOWN, 0);
end;

procedure TFMain.RichEdit1MouseWheelUp(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
// Прокрутка текста колесом мыши в вверх
SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_PAGEUP, 0);
end;

Прокрутка работает, но постранично (думаю что из-за SB_PAGEUP и SB_PAGEDOWN). Можно сделать плавную прокрутку (желательно построчно)?
Заранее спасибо.


 
хз ©   (2004-02-12 17:25) [1]

SB_LINEUP
SB_LINEDOWN



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

Текущий архив: 2004.02.25;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.02 c
1-79697
Builder
2004-02-13 02:19
2004.02.25
Сообщение об ошибке


3-79553
Lucky[ELF]
2004-01-27 20:22
2004.02.25
Созание фильтра


14-80110
syte_ser78
2004-02-02 12:54
2004.02.25
как узнать версию, релиз, выпуск экзешника?


14-80237
Knight
2004-02-04 20:36
2004.02.25
Фриварные компоненты для работы со сканером...


1-79885
Budy
2004-02-10 07:31
2004.02.25
String to Real