本文主要是介绍XE5手势,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!
在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤: 1、加 TGestureManager 控件如窗体: GestureManager1; 2、设置窗体属性 Touch.GestureManager := GestureManager1; 3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, sgRight]; 4、添加窗体的 OnGesture 事件, 写响应代码. 上面的步骤 3 的目的是指定准备要接受识别的动作, 这在设计时选定比较方便:unit Unit1;interfaceusesSystem.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Gestures;typeTForm1 = 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;varForm1: TForm1;implementation{$R *.fmx}procedure TForm1.FormCreate(Sender: TObject);
vart:TStandardGestures;
begin
t:=[TStandardGesture.sgLeft,TStandardGesture.sgR
这篇关于XE5手势的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!