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

[DomiNick]

Делал я однажды программу... И заметил что масштабирование с помощью колёсика мыши работает как-то не так...
Если точнее - "прыжки" в 2 раза больше чем должно быть...

Стал разбираться... Поставил точку останова на одном из событий OnMouseWheel и выяснилось, что обработчик почему-то вызывается дважды подряд...

Procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; Var Handled: BooLean);
Begin
If (H>1) Then H:=H-0.1;
End;

Procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; Var Handled: BooLean);
Begin
If (H<4) Then H:=H+0.1;
End;

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

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

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



P.S.

Вышел из ситуации заменив свою кнопку на TSpeedButton...

Хотя можно было наверное ещё и через Application.OnMessage сделать, но поменять кнопку было быстрее...

[Alex Cones]

А попробуй поменять настройки мыши, а именно "прокручивание на N строк". Может эта системная функция вызывается так:

...
For I:=1 to N do prokrutit;
...
Procedure prokrutit;
Begin
Прокрутка на одну строку
End;

[DomiNick]

А если положить на форму TPanel, в него ещё один TPanel, а уже во второй положить TButton - то обработчики OnMouseWheel вызываются четырежды... О_О

А попробуй поменять настройки мыши

Это где такое? В Делфи?

Может когда класс TForm делали что-то с этим напутали:

Функция DefWindowProc передает сообщение родителю окна. Не должна быть никакой внутренней переадресации сообщения, так как DefWindowProc передает его вверх по цепочке родителей, пока функция не найдет окно, которое обработает его.

[Alex Cones]

Это где такое? В Делфи?

Неееет, это в настройке винды а именно в ПАНЕЛЬ УПРАВЛЕНИЯ>МЫШЬ>КОЛЕСИКО>ПРОКРУЧИВА ТЬ НА ... СТРОК

[alexBlack]

procedure TForm19.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
   //...
   Handled := true;  // Обработано!!!
end;

[DomiNick]

Хм... Никогда не пользовался этой настройкой...

Ну это-то не должно влиять на Делфи... И к тому же на пустой форме-то работает как надо...

Вот сделал через Application.OnMessage (вроде всё правильно):

      Private
            { Private declarations }
            Procedure AppOnMessage(Var Msg: TMsg; Var Handled: BooLean);
      Public

...

Var Form1: TForm1; H: Real;

...

Procedure TForm1.AppOnMessage(Var Msg: TMsg; Var Handled: BooLean);
Begin
If Msg.Message=WM_MOUSEWHEEL Then
      Begin
      If (HIWORD(Msg.wParam)>32512) Then
            If (H>1) Then H:=H-0.1
            Else
      Else
            If (H<4) Then H:=H+0.1;
      End;
Form1.Caption:=FloatToStr(H); // для проверки как работает
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
H:=1;
Application.OnMessage:=AppOnMessage;
End;

Так можно на форму всё что угодно класть - работает как часы...