Mit Mausrad in TScrollBox scrollen

[Sherlock]

Bei mir klappt der eigentlich verständliche Code von Uwe ebenfalls nicht. Ich denke es liegt daran, daß ich Panels auf Panel ins Groupboxen auf einer Scrollbox habe...also beliebig verschachteltes Zeugs. Beholfen habe ich mir hiermit:

Delphi-Quellcode:

procedure TForm.ScrollBox2MouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var vsb:TControlScrollbar;
begin
  MousePos := ScreenToClient(MousePos);
  if PtInRect((Sender as TScrollBox), MousePos) then
  begin
    vsb := (Sender as TScrollBox).VertScrollBar;
    vsb.Position := vsb.Position - Sign(WheelDelta) * vsb.Increment;
  end;
end;

Und ja, ich hatte Uwes Code an das FormWheel-Event gehängt

Sherlock