Procedure Tf_twjl_tx. ScrollBox1MouseWheel (Sender: TObject;
Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
Var Handled: Boolean);
Var
I: Integer;
The begin
ScrollBox1. VertScrollBar. Position:=ScrollBox1 VertScrollBar. Position - WheelDelta; Interrupt
-I:=1;
end;

I set the interrupt, but it did not respond to events?
And I'm in the mousedown event and imgmousedown get focus

CodePudding user response:

You put this code into the form you will see mousewheel event response