delphi 手势 识别 哈哈
2024-09-21 02:03:22
本例尝试在 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.
最新文章
- [CC]手动点云分割
- netcore 控制台中文乱码
- js获取url中参数
- which、whereis、locate、find 命令用法
- JavaScript中Call()以及Apply()的应用
- cocos2d-x 中添加显示文字的三种方式 LabelTTF 、LabelBMFont 和 LabelAtlas
- 查看cics 运行状态
- JavaScript 异常
- PHP时间戳
- UVA 227 Puzzle - 输入输出
- asp.net webForm 前后台类关系
- 在windows server2003下安装Redmine
- Ajax中参数带有html格式的 传入后台保存【二】
- 如何解决Ajax跨域问题-1
- Android笔记: 实现手机震动效果
- HBase篇(2)-数据模型与操作
- awd入门教程
- Python练习1
- redis 和 kookeeper 连用 构建 redis集群
- PAT 1114 Family Property[并查集][难]
热门文章
- SpringBoot 使用Mybatis+MySql
- 多线程02-Join
- ubuntu开机只有一条横杠在闪的解决办法
- luogu 3426题解 (KMP)
- JS相比TS的缺点(或TS的优点)
- [转]Oracle 11g 基于CentOS7静默安装教程(无图形界面,远程安装) --有部份地方有问题
- Centos7搭建日志服务器rsyslog+loganalyzer
- keras 下载预训练模型报错SSL: CERTIFICATE_VERIFY_FAILED] certificate verify failed (_ssl.c:852)
- idea 配置自动编译 livereload
- sublime下载emmet