文档章节

Delphi 2010 新增功能之: 手势编程[2] - 通过 OnGesture 识别手势

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 195
阅读 11
收藏 0

本例尝试在 OnGesture 事件中响应 sgLeft、sgRight 手势; 操作步骤:

1、加 TGestureManager 控件如窗体: GestureManager1;

2、设置窗体属性 Touch.GestureManager := GestureManager1;

3、添加窗体的 OnCreate 事件, 写: Touch.StandardGestures := [sgLeft, sgRight];

4、添加窗体的 OnGesture 事件, 写响应代码.

上面的步骤 3 的目的是指定准备要接受识别的动作, 这在设计时选定比较方便:



测试代码:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, GestureMgr;

type
  TForm1 = class(TForm)
    GestureManager1: TGestureManager;
    procedure FormCreate(Sender: TObject);
    procedure FormGesture(Sender: TObject; const EventInfo: TGestureEventInfo;
      var Handled: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Touch.StandardGestures := [sgLeft, sgRight];
end;

procedure TForm1.FormGesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  case EventInfo.GestureID of
    sgiLeft  : ShowMessage('Left');
    sgiRight : ShowMessage('Right');
  end;
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/10/21/1587358.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
EZ430 Chronos 开发设想 :广义手势语言

EZ430 Chronos 开发设想 :广义手势语言 终于收到了代购的开发套件,这几天都在思考究竟用它来开发一款什么样的有趣应用呢? 终于在昨天确定了开发设想:手势语言,充分利用套件的3轴加速度感...

FreeBlues
2012/07/01
0
0
深度操作系统 15.5——知你所想,予你所求

深度操作系统是一个致力于为全球用户提供美观易用、安全可靠的Linux发行版。 深度操作系统15.5主要新增了高分屏支持、指纹扫描和Flatpak应用格式支持。新版将Deepin Crosswalk迁移到了全新W...

melodyzou
2017/11/30
10.3K
112
解读手势识别,或许不是VR交互的万能工具

摆脱外设的VR体验需要手势识别作为基础,那么手势识别技术发展情况是如何呢? 现在主流的VR硬件设备,主要的输入输出设备还是类似传统游戏手柄的外设:Oculus在Touch没发布之前,一直用的是微...

行者武松
03/01
0
0
外媒称 Android 7.0 当中加入了指纹手势

近日有外媒传出消息称今年的Nexus手机将会搭载Android7.0系统,而系统中还新增加指纹手势功能,同时谷歌将对以前的虚拟按键进行了重绘。根据外媒给出的消息,今年的谷歌两款Nexus系列手机将会...

oschina
2016/08/04
2.5K
13
UIGestureRecognizer手势识别器

通过touches方法监听view触摸事件,有很明显的几个缺点 必须得自定义view 由于是在view内部的touches方法中监听触摸事件,因此默认情况下,无法让其他外界对象监听view的触摸事件 不容易区分...

业界小白
2016/12/06
4
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

(三)Nginx配置·续

概述 前文写了关于Nginx环境配置,但是还没有完,接下来将会继续讲三个相关的配置 主要是以下三个 1.Nginx访问日志 2.Nginx日志切割 3.静态文件不记录日志和过期时间 Nginx访问日志 1.先看看...

杉下
今天
1
0
jquery创建类似于java的map

var map = {}; // Map map = new HashMap(); map[key] = value; // map.put(key, value); var value = map[key]; // Object value = map.get(key); var has = key in map; // boolean has = ......

SuperDabai
今天
0
0
java大数据转换16进制转10进制

public static void main(String[] args) {String hex = "0xdbf3accc683297cf0000";BigInteger amount = new BigInteger(hex.substring(2), 16);System.out.println(amount);......

任梁荣
昨天
2
0
OSChina 周六乱弹 —— 目测我们程序员丁克的几率不大

Osc乱弹歌单(2018)请戳(这里) 【今日歌曲】 @真Skr小机灵鬼儿:8.13分享Jocelyn Pook/Russian Red的单曲《Loving Strangers》 《Loving Strangers》- Jocelyn Pook/Russian Red 手机党少...

小小编辑
昨天
14
4
TypeScript基础入门 - 函数 - 剩余参数

转载 TypeScript基础入门 - 函数 - 剩余参数 项目实践仓库 https://github.com/durban89/typescript_demo.gittag: 1.2.1 为了保证后面的学习演示需要安装下ts-node,这样后面的每个操作都能...

durban
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部