Ja hast Recht, USB hat er auch wegen der Rückmeldung des Touchs.
Also mir selber würde es reichen, wenn er sich wie eine Maus verhält und ich mit der Maus auch hoch/runter ziehen/schieben kann und die Scrollbar eben mitwandert.
Habe jetzt ein GestureManager drauf gelegt und bei der Scrollbox verknüpft.
Delphi-Quellcode:
case EventInfo.GestureID of
sgiUp :
begin
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position + EventInfo.Distance;
end;
sgiDown :
begin
ScrollBox1.VertScrollBar.Position := ScrollBox1.VertScrollBar.Position - EventInfo.Distance;
end;
end;
Handled := True;
Leider ist die EventInfo immer nur das Feld Location (X/Y) gefüllt und zwar mit dem Wert, wo man zuerst geklickt hat und den "Zieh/Schiebevorgang" gestartet hat. Würde ja gerne entsprechend der Länge des "Wischens" auch die Scrollbox scrollen