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

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