文档章节

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
解读手势识别,或许不是VR交互的万能工具

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

行者武松
03/01
0
0
AliOS Things手势识别应用演示

1. 概述 手势识别作为一种辅助的人机交互方式,在人机脱离的场景下可以提供方便的交互体验。本文介绍基于AliOS Things + STM32F413H Discovery开发板实现手势交互功能的演示。 2. 环境搭建 ...

玄一
09/27
0
0
深度操作系统 15.5——知你所想,予你所求

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

melodyzou
2017/11/30
11.9K
112
iOS手势与响应者链

这篇文章侧重于讲解手势识别、手势冲突、以及手势与响应链的关系。在处理多个手势识别场景,很容易出现手势冲突的问题,比如,我们需要对图片进行单击、长按、旋转、缩放、拖动、翻转等操作的...

秦明Qinmin
2017/10/30
0
0

没有更多内容

加载失败,请刷新页面

加载更多

ubuntu16.04 LNMP搭建 php7.1

sudo apt-get update sudo apt-get install mysql-server mysql-client sudo apt-add-repository ppa:ondrej/php sudo apt-get update sudo apt-get install php7.1 php7.1-fpm php7.1-cgi p......

一千零一夜个为什么
15分钟前
0
0
阿里云高级技术专家带你全面了解云主机性能评测

钱超,花名西邪,阿里云高级技术专家,超12年老阿里,是云主机性能领域的知名专家。 在目前的云计算测评领域,很多性能测评存在营销的包装,容易引起误导:比如用瞬时性能引导读者得出结论,...

阿里云官方博客
22分钟前
1
0
Charles如何设置本地映射、和取消本地映射

适用情况: 遇到接口返回特别快的时候非常郁闷,还得求着接口开发改数据很浪费时间,于是在这种情况下可以使用charles做本地映射。 环境: charles版本:3.11.2 一:如何设置本地映射 1、选中...

SuShine
24分钟前
1
0
python爬虫之定位网页元素的三种方式

python爬虫之定位网页元素的三种方式 2018年08月02日 13:30:02 Barry__ 阅读数:1373 标签: python 更多 个人分类: python 版权声明:本文为博主原创文章,转载请注明出处 https://blog.c...

linjin200
28分钟前
1
0
AES加密算法的详细介绍与实现

#include <stdio.h>#include <stdlib.h>#include <string.h>#include "aes.h"/** * S盒 */static const int S[16][16] = { 0x63, 0x7c, 0x77, 0x7b, 0xf2, 0x6b, 0x6f, 0xc......

青春无极限
29分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部