Назначьте один и тот же обработчик для обоих компонентов ScrollBox, а не для формы, а затем используйте параметр Sender
, чтобы узнать, какой компонент вызывает обработчик.
procedure TForm3.ScrollBoxMouseWheel(Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
var
LTopLeft, LTopRight, LBottomLeft, LBottomRight: SmallInt;
LPoint: TPoint;
ScrollBox: TScrollBox;
begin
ScrollBox := TScrollBox(Sender);
LPoint := ScrollBox.ClientToScreen(Point(0,0));
LTopLeft := LPoint.X;
LTopRight := LTopLeft + ScrollBox.ClientWidth;
LBottomLeft := LPoint.Y;
LBottomRight := LBottomLeft + ScrollBox.ClientWidth;
if (MousePos.X >= LTopLeft) and
(MousePos.X <= LTopRight) and
(MousePos.Y >= LBottomLeft) and
(MousePos.Y <= LBottomRight) then
begin
ScrollBox.VertScrollBar.Position := ScrollBox.VertScrollBar.Position - WheelDelta;
Handled := True;
end;
end;