TCategoryPanelGroup, MouseWheel, Scroll?

[Codehunter]

Moinsen!

Ja was soll ich sagen? Die Überschrift sagt eigentlich schon alles aus: Wie bekommt man ein TCategoryPanelGroup dazu, auf ein MouseWheel hin zu reagieren?

Grüße
Cody

EDIT: Ich habe jetzt mal einen Tip aus Stackoverflow adaptiert, scheint (vorerst) zu funktionieren:

Delphi-Quellcode:

procedure TForm5.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var
  I: Integer;
begin
  Handled := PtInRect(CategoryPanelGroup1.ClientRect, CategoryPanelGroup1.ScreenToClient(MousePos));
  if Handled then begin
    for I := 1 to Mouse.WheelScrollLines do
    try
      if WheelDelta > 0 then
        CategoryPanelGroup1.Perform(WM_VSCROLL, SB_LINEUP, 0)
      else
        CategoryPanelGroup1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);
    finally
      CategoryPanelGroup1.Perform(WM_VSCROLL, SB_ENDSCROLL, 0);
    end;
  end;
end;