Mein Beispiel kannst du etwa so an deine Bedürfnisse anpassen:
Delphi-Quellcode:
procedure TMainForm.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
var
sbr: TRect;
begin
with Scrollbox do begin
sbr.TopLeft := ClientToParent(ClientRect.TopLeft);
sbr.BottomRight := ClientToParent(ClientRect.BottomRight);
end;
if PtInRect(sbr, ScreenToClient(MousePos)) then
ScrollBoxMouseWheelDown(Sender, Shift, MousePos, Handled);
end;
An diesem Code-Fragment solltest du sehen, warum dein Scrollrad rechts unten nicht erkannt wurde. Weitere Anpassungen kannst du, wenn nötig, nach dem gleichen Muster vornehmen.
marabu