在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤: 1、加 TGestureManager 控件如窗体: GestureManager1; 2、设置窗体属性 Touch.GestureManager := GestureManager1; 3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, sgRight]; 4、添加窗体的 OnGesture 事件, 写响应代码. 上面的步骤 3 的目的是指定准备要接受识别的动作, 这在设计时选定比较方便:
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Gestures;
type
TForm1 = class(TForm)
GestureManager1: TGestureManager;
procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
var Handled: Boolean);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.FormCreate(Sender: TObject);
var
t:TStandardGestures;
begin
t:=[TStandardGesture.sgLeft,TStandardGesture.sgR