события по скроллингу мышью

[{Shadowevil}]

Добрый день. Возникла проблема Есть TrackBar, который изменяет свое значение при событии onMouseWheelUp

procedure TfrmMain.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
...
 TrackBar1.Position:=TrackBar1.Position+1;
...
end;

Так вот, проблема заключается в том, что когда я заканчиваю крутить колесо мыши, мне надо включить Timer, а как обработать событие

if <Колесо мыши крутится>=false then
begin
Timer1.Enabled:=true;
....
end;

Не подскажете есть такой обработчик в природе вообще или нет?

[grafgrial]

вот пример обработки прокрутки мыши http://www.sql.ru/forum/actualthread.aspx?tid=284663

[phomm]

Не думаю что Вы найдёте это событие, ибо кручение колеса не есть непрерывное действие, оно дискретно, и на каждое одинарное вращение генерируется событие (вверх или вниз соответственно).

Можно сделать по другому немного. Создать таймер, в котором указать примерный период после прокручивания колеса, например 2 секунды interval := 2000. После срабатывания скрол-события, вы запускаете таймер этот (точнее запускаете и останавливаете подряд, чтобы сбросить "текущее время таймера" - я точно не знаю, в справке не написано, заново идёт отсчёт или нет) и если этот таймер сработает, значит прошло 2 секунды и можно запускать то что вам надои этот таймер выключить. Если же не пройдёт 2 секунд а юзер снова скроллит, то каждое скорл событие будет как бы перезапускать каждый раз этот таймер.
Получится такая эмуляция события завершения скрола, интервал срабатывания установите по своему вкусу в миллисекундах.