Mausrad für nicht fokussierte Komponente

[kitprog]

Hallo anse,

ich habe mir gerade gestern, Folgendes zusammengetüftelt:

Delphi-Quellcode:

procedure TfrmTest.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if PtInRect(ScrollBoxTest.ClientRect, ScrollBoxTest.ScreenToClient(Mouse.CursorPos)) then
  begin
    if WheelDelta >0 then
      ScrollBoxTest.VertScrollBar.Position := ScrollBoxTest.VertScrollBar.Position - TestGroesse;
    if WheelDelta <0 then
      ScrollBoxTest.VertScrollBar.Position := ScrollBoxTest.VertScrollBar.Position + TestGroesse;
  end;
  Handled := True;
end;

Frohe Weihnachten :xmas: