Вопрос про событие MouseWheel

[TashaNB]

Подскажите, пожалуйста, начинающему программисту. Мне нужно каким-нибудь образом отключить событие прокрутки скролла, которое возникает при прокрутке колеса мыши. Дело в том, что я не могу понять какое именно событие вызывается(это не Form1_Scroll).

[mihali4]

FormMouseWheel
Приучайтесь в первую очередь смотреть в окошке инспектора объектов свойства и события...

[TashaNB]

Нет, это понятно. Я имею ввиду, что при событии MouseWheel срабатывает еще какое-то, которое прокручивает скролл, а какое не понятно. Как это отключить?

[mihali4]

Попробуйте, например:

private
{ Private declarations }
procedure AppOnMessage(VAR Msg: TMsg; VAR Handled: Boolean);
public
...
procedure TForm1.AppOnMessage(VAR Msg: TMsg; VAR Handled: Boolean);
begin
if Msg.Message=WM_MouseWheel THEN
begin
Handled:=true;
Perform(WM_MouseWheel,Msg.wParam,0) ;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := AppOnMessage;
end;

[TashaNB]

Спасибо!