[SergeyABG]

Всем добрейший!
Есть компонент - JvThumbView. У него не работает прокрутка мышью.
Пытаюсь написать компонент-наследник и перекрыть события MouseWheelDown и MouseWheelUp, но это не срабатывает.
Вот что я написал, но чувствую что не правильно т.к. делаю это в первый раз:

Код:

unit MyThumbView;

interface

uses
{$IFDEF UNITVERSIONING}
  JclUnitVersioning,
  {$ENDIF UNITVERSIONING}
  Windows, // TWin32FindData
  {$IFDEF HAS_UNIT_LIBC}
  Libc, // stat()
  {$ENDIF HAS_UNIT_LIBC}
  SysUtils, Messages, Classes, Graphics, Controls, Forms, ExtCtrls,
  JclBase,
  JvExForms, JvExExtCtrls, JvBaseThumbnail, JvThumbViews;

type
  TMyThumbView = class(TJvThumbView)
  private
    { Private declarations }
    FOnMouseWheelDown: TMouseWheelUpDownEvent;
    FOnMouseWheelUp: TMouseWheelUpDownEvent;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    constructor Create(AOwner: Tcomponent);override;
    property OnMouseWheelDown: TMouseWheelUpDownEvent read FOnMouseWheelDown
        write FOnMouseWheelDown;
    property OnMouseWheelUp: TMouseWheelUpDownEvent read FOnMouseWheelUp write
        FOnMouseWheelUp;
    function DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean; override;
    function DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean; override;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My Component', [TMyThumbView]);
end;

constructor TMyThumbView.Create(AOwner: Tcomponent);
begin
inherited create(AOwner);
end;

function TMyThumbView.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(FOnMouseWheelDown) then
    FOnMouseWheelDown(Self, Shift, MousePos, Result);
end;

function TMyThumbView.DoMouseWheelUp(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := False;
  if Assigned(FOnMouseWheelUp) then
    FOnMouseWheelUp(Self, Shift, MousePos, Result);
end;

end.

Укажите пожалуйста на ошибки. Уже весь мозг себе сломал. Сам не справлюсь.

[Aristarh Dark]

А сообщение кто ловить будет?

[SergeyABG]

А как? Буду благодарен за пример. Я в этом полный нуб.

[icWasya]

Сначала вопрос - не работает или отсутствует ?
Если просто отсутствует, то начиная с D6 можно сделать так:

Код:

type  TMyThumbView = class(TJvThumbView) 
  published
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
 end;

[SergeyABG]

События присутствуют и в родителе и в наследнике, но реакции на колесо мыши ни какой.

[icWasya]

Тогда смотреть, что там написано в методах
WMMouseWheel, CMMouseWheel, DoMouseWheel, DoMouseWheelDown, DoMouseWheelUp

[SergeyABG]

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

WMMouseWheel, CMMouseWheel

А про этих я и не знал что они тоже должны быть завязаны.
Буду смотреть. Спасибо за наводку.

[Alegun]

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

События присутствуют и в родителе и в наследнике, но реакции на колесо мыши ни какой.

Какие признаки этого, где это увидели - собсно что происходить-то должно, когда у вас в функциях DoMouseWheelDown и DoMouseWheelUp только из пустого в порожнее перелив идёт - им передаётся их же состояние и ничего больше

Если нужно просто прокрутить содержимое JvThumbView (не знаю что за зверь) изначально не поддерживающего такое действие мышкой, тогда проще задействовать "форменный" перехватчик OnMouseWheel, для Memo я делал примерно так

Код:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
 i, b, c: integer;
begin
 if FindVCLWindow(MousePos).Handle = Memo1.Handle then
  begin

   // Направление прокрутки
   if WheelDelta < 0 then c:= SB_LINEDOWN else c:= SB_LINEUP;

   // Диапазон прокрутки за один "тик" колесика
   SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @b, 0);

   // Если получено -1, то прокручивать на целую страницу
   if b < 0 then
    begin
     b:= 1;
     Inc(c, SB_PAGEUP);
    end;

    for i := 1 to b do Memo1.Perform(WM_VSCROLL, c, 0);
    Handled:= true;
    end;

end;

кидайте родителя на форму, вместо Memo1 подставляйте его, и не мучайтесь

[SergeyABG]

Спасибо Alegun!
Заработало.

[SergeyABG]

Еще, может быть дурацкий вопрос. А как теперь шаг прокрутки увеличить?

[SergeyABG]

Все, разобрался.