delphi 手势

delphi手势，左右滑动，

控件的OnGesture事件写代码。

放一个TGestureManager控件。

procedure TForm1.GridPanelLayout1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  case EventInfo.GestureID of
    sgiRight://向右滑动
      begin

      end;
  end;
end;