Gestures und Ihre Tücken

[Union]

Du musst LB_1.Touch.InteractiveGestures := [] setzen (also das Häkchen bei igPan herausnehmen). Und um zum Testen besser unterscheiden zu können woher die Bewegung kommt wäre es sinnvoll das über die UI zu identifizieren:

Delphi-Quellcode:

  case EventInfo.GestureID of
    igiPan : begin
               L_1.Text := 'Refresh (kommt von InteractiveGestures)';
               LB_1.Items.Clear;
             end;
    sgiDown : begin
                L_1.Text := 'Down (Kommt vom Gesturemanager)';
                LB_1.Items.Clear;
              end;
  end;