Delphi/C++ Builder 支持触控操作步骤

1、在当前窗体上添加一个 TGestureManager 对象。

2、选择设置要支持触控的控件

2.1、找到 Touch 属性

2.1.1、修改GestureManager 属性为第 1 步添加的 TGestureManager 对象；

2.1.2、设置Gestures 或 InteractiveGestures 中自己支持的触控操作。

2.2、切换到事件页，找到 OnGesture 事件，双击进入事件处理代码：

procedure TForm1.TabControl1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
end;

 2.3、编写自己的处理代码，EventInfo 参数的定义如下：

TGestureEventInfo = record
    GestureID: TGestureID;
    Location: TPointF;
    Flags: TInteractiveGestureFlags;
    Angle: Double;
    InertiaVector: TPointF;
    Distance: Integer;
    TapLocation: TPointF;
  end;

下面是各个成员的简单解释：