Текущий архив: 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.037 c
