delphi 手势 识别 哈哈
识别 Delphi 手势
2023-09-11 14:20:27 时间
本例尝试在 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.
相关文章
- ORA-12514: TNS: 监听程序当前无法识别连接描述符中请求的服务
- dlib landmark+人面识别
- 基于多输出有序回归的年龄识别(CVPR_2016)
- delphi xe 之路(30)Delphi XE7 update1进步太大了
- 基于Deep Learning 的视频识别技术
- 有没有高效的记视频笔记方法?--天若OCR文字识别记视频笔记
- Atitit.论图片类型 垃圾文件的识别与清理 流程与设计原则 与api概要设计 v2 pbj
- CV之IC之VGG16:基于Keras框架利用卷积神经网络VGG16算法的迁移技术实现猫狗分类识别(图片数据增强→保存h5模型)案例训练过程记录
- 基于最小均数四分法 (LMF) 和最小均方 (LMS) 算法进行系统识别(Matlab代码实现)
- 【智能算法】基于CNN算法深度学习车辆识别
- [背景分离] 识别移动物体基于高斯混合 MOG
- 识别TLS加密恶意流量
- yolo 识别 狗狗自行车