Gesten in VCL

[Ykcim]

Hallo Zusammen,

ich habe noch nie mit dem Gesturemanager gearbeitet und habe so meine Anfangsschwierigkeiten.

Frage 1:
Ich habe eine ScrollBox und möchte diese quasi an meinen Finger hängen und vertikal und horizontal scrollen. So wie ich auf dem Handy durch ein Dokument mich bewege. Ich habe das Umblättern der Seite wie folgt gelöst:

Delphi-Quellcode:

case EventInfo.GestureID of
      sgiRight: begin
         SpeedButtonPreviousPageClick(nil);
      end;
      sgiLeft: begin
         SpeedButtonNextPageClick(nil);
      end;
      igiZoom: begin
         //Hier muss ich etwas machen um den typischen 2 Finger-Zoom zu realisieren...
      end;
      igiPan: begin
          //Hier muss ich etwas machen, um zu scrollen, aber ich habe keine Ahnung was.
      end;
   end;

Frage 2:
Das gleiche nur bezogen auf den typischen 2-Finger-Zoom.

Hat jemand einen Ansatz, wie ich die beiden Themen realisieren kann?

Vielen Dank
Patrick