Главная страница
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.027 c
7-80335
andruxa
2003-12-03 16:00
2004.02.25
Как отследить включение режима пониценного энергопотребеления?


3-79564
Санек
2004-01-29 16:46
2004.02.25
Научить TAB ходить по гриду


7-80308
BoxTer
2003-11-27 08:57
2004.02.25
Как очистить очередь печати Windows???


8-80041
kopcap
2003-10-21 14:51
2004.02.25
SwapBuffers()


8-80031
Jonson
2003-10-22 19:19
2004.02.25
DelphiX для Delphi6 - ошибки!