обработка WM_MOUSEWHEEL

[NEoMASTERR]

Здравствуйте, некие странности происходят с приложением. Есть компонент наследник TGraphicControl, и обработчик сообщения WM_MouseWheel, но он не работает должным образом, обьясню.
Форма находится по центру экрана, размер компонента 800х500. Если покрутить колесом в пределах экрана от 0х0 до 800х500 то приходит сообщение! Но компонент реально находится в 300 пикселях ниже и правее. А если покрутить колесом на углу компонента дальше чем в 800 пикселях от левого угла экрана монитора то никакого сообщения нет. Помогите пожалуйста.

procedure TMyMainComponent.WndProc(var msg: TMessage);
begin
  inherited;
  case msg.Msg of
    WM_MOUSEWHEEL:                 //Шалит
      begin
        case msg.wparam < 0 of
          true: dec(FScrollOffsetY,30);
          false: inc(FScrollOffsetY,30);
        end;
        Paint;
        msg.Result:=0;
      end;
    WM_MOVE: msg.Result:=0;
    WM_MOUSEMOVE: msg.Result:=0;
    WM_LBUTTONDOWN: msg.Result:=0;
  end;

end;

[Vapaamies]

Какая версия Delphi? Судя по исходникам VCL Delphi 6, так и должно быть. Координаты нигде не пересчитываются.

Мне кажется, что TGraphicControl -- неудачный предок для компонента, которому нужно обрабатывать колесо мыши.

[NEoMASTERR]

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

Какая версия Delphi? Судя по исходникам VCL Delphi 6, так и должно быть. Координаты нигде не пересчитываются.

Мне кажется, что TGraphicControl -- неудачный предок для компонента, которому нужно обрабатывать колесо мыши.

D7, сейчас мучаю обработку дополнительных сообщений, видимо из-за setfocus (которого нет) всё дело.


В Общем решил проблему добавив проверку (FFocusActive: Boolean = false)

    WM_MOUSEWHEEL:
      begin
        if FFocusActive then
        begin
          case msg.wparam < 0 of
            true: dec(FScrollOffsetY,30);
            false: inc(FScrollOffsetY,30);
          end;
          Paint;
          msg.Result:=0;
        end;
      end;

    CM_MOUSEENTER: FOldFocus:=SetFocus(FTimerHandle);
    CM_MOUSELEAVE: SetFocus(FOldFocus);

    WM_ACTIVATE:
    begin
      FFocusActive:=True;
      msg.Result:=0;
    end;
    WM_KILLFOCUS:
    begin
      FFocusActive:=false;
      msg.Result:=0;
    end;

Надеюсь правильное решение