OnMouseWheelDown (Up)

[Airou]

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  With  PageControl1 do
  If ActivePageIndex > 0 then ActivePageIndex:=ActivePageIndex-1;
end;

Не могу понять почему за одно движение колесиком мышки проматываются все вкладки.

[HellMercenariess]

Создайте глобальную переменную M и таймер с интервалом 300.
Процедуру :

 if (m=0)then 
  begin  With  PageControl1 do
  If ActivePageIndex > 0 then ActivePageIndex:=ActivePageIndex-1;
      m:=1;
    end;

а в обработчике OnTimer:

 m:=0;

Регулируйте интервал таймера в зависимости от того сколько прокруток в секунду нужно "пропустить", при 300 = три прокрутки в секунду.
при 200 = пять.
Должно помочь...

[DomiNick]

Почему обработчики OnMouseWheel происходят несколько раз подряд? (Delphi7)

[raxp]

у кого как мышь настроена (чувствительность)

[HellMercenariess]

Сообщение от raxp

у кого как мышь настроена (чувствительность)

нет, баг 7х делфи

Создав новый проект и немного поэкспериментировав обнаружил, что так происходит только если кинуть на форму TButton (если на форме пусто, то всё как надо)...
Точнее - когда этот контрол в фокусе... А в моём проекте как раз одна кнопка...

Так же происходит с TEdit, TBitBtn, TCheckBox, TRadioButton, TScrollBar, TMaskEdit и другими...

Должно ли так происходить и почему? Ни в одном из моих самоучителей про это ни слова, а ошибки-то лезут...
Или это с моей Делфи что-то не так?

[raxp]

только что попробовал на 7-й, 1 проворот колесика дал 1 клик...
на 6 версии проверяли?

[Airou]

У меня версия Delphi 7. Компонент Button на форме отсутствует. Есть PageControl, Image, SpinEdit, Checkbox, TrackBar.

Приду домой проверю способ с таймером.

[Airou]

Воспользовался вариантом с ветки DomiNick. Вариант alexBlack'a.