Scrollrad und Touchpad-Bildlauf

[marabu]

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