События колеса мыши без фокуса

[xoodoo]

приложение как будто вообще не получает сообщения WM_MOUSEWHEEL

У меня получает. Что я делаю неправильно ?

[AVer]

Ясно, пойду разбираться. Но все-так, если мои глаза меня не обманывают в чем может быть проблема? Может быть я что то не унаследовал от TCustomPanel?
Я имею в виду не переопределил какое то свойство/событие.

[Stilet]

Я правильно понял проблему?:
Я создаю кучу панелькофф

procedure TForm2.FormCreate(Sender: TObject);
var i:integer;
begin
 for i:=0 to 100 do begin
  with TPanel.Create(ScrollBox1) do begin
    Align:=alTop;
    Caption:=IntToStr(i);
    Height:=20;
    Parent:=ScrollBox1;
    OnMouseWheel:=ScrollBox1MouseWheel;
    Show;
  end;
 end;
end;

У которых описано событие скроллирования:

procedure TForm2.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 with ScrollBox1.VertScrollBar do
  Position:=Position-WheelDelta div 10;
end;

Которое по факту скролит не панель а скроллбокс, на котором она лежит.
Верно?

[AVer]

Сообщение от Аватар

А я и попробовал. Даже если курсор над панелью ScrollBox.OnMouseWheel работает если ScrollBox в фокусе. И даже если курсор за пределами ScrollBox

Вот хоть убей у меня так не получается. =) Пустая форма, скроллбокс, внем панель. Фокус передаю на скроллбокс. И все равно он крутится только когда курсор непосредственно над скроллбоксом, над панелью - нет.

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

Я правильно понял проблему?:
Я создаю кучу панелькофф
Которое по факту скролит не панель а скроллбокс, на котором она лежит.
Верно?

У панели нет события OnMouseWheel.

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

Обрабатываешь Application.OnMessage, ловишь там WM_MOUSEWHEEL.
lParam тебе даст абсолютные экранные координаты мышиного курсора.
Вызовом WindowFromPoint получаешь хендл окна под курсором.
Вызовом FindControl ищешь соответствующий винконтрол .
Если он найден и является твоим скроллбоксом, то крутишь его программно используя параметры, переданные в wparam.

Можно код? Возможно я что то делаю не так, потому что даже простейшее

procedure TForm3.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Msg.message = WM_MOUSEWHEEL then
  Begin
  ShowMessage('ok');
  End;
end;

срабатывает, над формой, но не срабатывает над панелью.

[Аватар]

Поставить точку останова на i:=1; и убедиться (D7)

[AVer]

Сообщение от Аватар

Поставить точку останова на i:=1; и убедиться (D7)

Не происходит ни-че-го. =( (RAD XE3)

Можно скомпилированный вариант, чтобы я уже наконец понял это делфи или драйвер мыши? Уже не знаю на что грешить...

[Аватар]

Приложил. С вертикальным скролом

[Stilet]

У панели нет события OnMouseWheel.

Я не говорил что оно есть, я показал пример, который позволяет скролить.
Наверное просто событие зря в цикл вставил, писал на скорую руку

[AVer]

Сообщение от Аватар

Приложил. С вертикальным скролом

И что самое интересное ничего не изменилось, не работает. Видимо система или мышь. Буду тестить на других компах. Всем спасибо.

[xoodoo]

простейшее...срабатывает, над формой, но не срабатывает над панелью

Такого не может быть ни при каких случаях, кроме случая когда некий код в основном потоке VCL-приложения организует свою собственную выборку и диспетчеризация оконных сообщений. Штатно этот цикл организован в недрах метода Application.Run, там же возбуждается событие Application.OnMessage перед тем как оконное сообщение будет диспетчеризовано и попадет на обработку в целевое окно.