标签：
delphi手势，左右滑动，
控件的OnGesture事件写代码。
放一个TGestureManager控件。
procedure TForm1.GridPanelLayout1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean); begin case EventInfo.GestureID of sgiRight://向右滑动 begin end; end; end;
标签：
原文地址：http://www.cnblogs.com/cb168/p/5256943.html
