ScrollBox in Komponente mit Mausrad scrollen

[Ares]

Hallo!

Eine Komponente an der ich gerade arbeite (von TCustomPanel abgeleitet) enthält eine TScrollBox. Hierbei habe ich das Problem, dass die ScrollBox nicht auf Bewegungen des Mausrades reagiert:

Delphi-Quellcode:

type
  TMyComonent = class(TCustomPanel)
  private
    FScrollBox: TScrollBox;
    
    // procedure ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
    //   MousePos: TPoint; var Handled: Boolean);
    // procedure ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
    //   MousePos: TPoint; var Handled: Boolean);
  public  
    constructor Create(AOwner: TComponent); override;

    procedure ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);

    property ScrollBox : TScrollBox read FScrollBox;
  end;

...

constructor TMyComonent.Create(AOwner: TComponent);
begin
  ...
  FScrollBox        := TScrollBox.Create(self);
  FScrollBox.Parent := self;
  ...
  FScrollBox.OnMouseWheelDown := ScrollBoxMouseWheelDown;
  FScrollBox.OnMouseWheelUp   := ScrollBoxMouseWheelUp;

  ...
  // OnMouseWheelDown := ScrollBoxMouseWheelDown;
  // OnMouseWheelUp   := ScrollBoxMouseWheelUp;  
end;

procedure TMyComonent.ScrollBoxMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  FScrollBox.VertScrollbar;
  FScrollBox.VertScrollbar.Position := FScrollBox.VertScrollbar.Position + FScrollBox.VertScrollbar.Increment;
  Handled := true;
end;

procedure TMyComonent.ScrollBoxMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  FScrollBox.VertScrollbar;
  FScrollBox.VertScrollbar.Position := FScrollBox.VertScrollbar.Position - FScrollBox.VertScrollbar.Increment;
  Handled := true;
end;

In dieser Art und Weise funktioniert das ganze leider nicht. Erst ich dem Formular, dass die Komponente enthält ebenfalls Eventhandler für die das Scrollrad zuweise und von dort aus die Eventhandler der Komponente aufrufe reagiert die ScrollBox:

Delphi-Quellcode:

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if PtInRect(MyComonent1.ScrollBox.ClientRect, ScreenToClient(MousePos)) then
    MyComonent1.ScrollBoxMouseWheelDown(Sender, Shift, MousePos, Handled);
end;

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  if PtInRect(MyComonent1.ScrollBox.ClientRect, ScreenToClient(MousePos)) then
    MyComonent1.ScrollBoxMouseWheelUp(Sender, Shift, MousePos, Handled);
end;

Nur aus diesem Grund habe ich die Eventhandler für das Scrollen in TMyComonent public gemacht. Aber die Lösung ist nicht praktikabel. Ich verwende mehrere dieser Komponenten auf einem Form, jede müsste in die Eventhandler des Forms eingetragen werdne. Außerdem sollte die Komponente in sich funktionieren und nicht noch Änderungen am Form voraussetzen.

Wie muss ich also die Komponente anpassen, damit das Scrollen auch ohne Änderungen am Form funktioniert?

Besten Dank
Ares