文档章节

Delphi 2010 新增功能之: 手势编程[3] - 直接给某个手势指定动作

涂孟超
 涂孟超
发布于 2014/09/26 15:30
字数 245
阅读 9
收藏 0

除了通过 OnGesture 事件识别手势, 还可以直接个某个手势指定动作.

这需要用到: TActionList 或 TActionManager; 本例用了 TActionList.

操作步骤:

1、给窗体添加并关联 TGestureManager, 还要添加 TActionList;

2、给动作关联 Action:


3、给 Action 写代码.

代码文件:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GestureManager1: TGestureManager;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Action1Execute(Sender: TObject);
begin
  ShowMessage('Left');
end;

procedure TForm1.Action2Execute(Sender: TObject);
begin
  ShowMessage('Right');
end;

end.

 
 
 
 
 

 

 

  

窗体文件:
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 206
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Touch.GestureManager = GestureManager1
  PixelsPerInch = 96
  TextHeight = 13
  object GestureManager1: TGestureManager
    Left = 128
    Top = 88
    GestureData = <
      item
        Control = Owner
        Collection = <
          item
            Action = Action1
            GestureID = sgiLeft
          end
          item
            Action = Action2
            GestureID = sgiRight
          end>
      end>
  end
  object ActionList1: TActionList
    Left = 224
    Top = 136
    object Action1: TAction
      Caption = 'Action1'
      OnExecute = Action1Execute
    end
    object Action2: TAction
      Caption = 'Action2'
      OnExecute = Action2Execute
    end
  end
end

 
 
 
 
 

 

 

  

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

涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
ChromePlus浏览器发布Linux版

ChromePlus是一款基于Chromium的浏览 器,目前支持广告过滤,鼠标手势,超级拖拽,IE标签等主要功能,并在用户体验细节上做了许多优化和改进。 昨天CP基于Windows的1.3.3.0版 本发布了Linux...

红薯
2010/03/15
1K
3
StrokesPlus绿色中文版下载(附汉化补丁)

StrokesPlus是一款功能强大的鼠标增强工具,通过该软件,用户可以用鼠标在系统上支持手势操作,无须.net运行环境即可运行,只占用250-500kb内存。strokesplus支持脚本动作,提供了更为强大的...

syoyue
2018/05/11
0
0
设计支持手势操作的 XNA 游戏(转载)

摘要 上一回我们为大家介绍了更多的 XNA Framework 支持游戏开发的类别,包括支持输入控制,音效播放,以及背景音乐播放控制的类别等等,让读者能够为所制作的游戏程序加入更丰富的游戏效果。...

junwong
2012/02/17
682
0
Easy DragToGo

轻松使用拖曳手势打开标签页。 拖曳对象:选取的文字、链接、图片。 特点:内核短小精悍,手势动作灵敏准确。 功能: 链接 -- 在新前台、新后台和当前标签页打开链接,链接另存为; 文字 --...

匿名
2008/09/19
4.4K
0
IOS开发之UI手势

点击手势和双击手势 #import "TapViewController.h" @interface TapViewController () @end @implementation TapViewController - (void)viewDidLoad { [super viewDidLoad]; // Do any addi......

鹿微微鹿
2016/04/25
19
0

没有更多内容

加载失败,请刷新页面

加载更多

Rabbit MQ 延迟消息发送

为什么使用延迟消息? 不同于同步消息,有些业务场景下希望可以实现延迟一定时间再消费消息。 典型的场景有微信、支付宝等第三方支付回调接口,会在用户支付后3秒、5秒、30秒等等时间后向应用...

兜兜毛毛
5分钟前
0
0
【0918】正则介绍_grep

【0918】正则介绍_grep 9.1 正则介绍_grep上 9.2 grep中 9.3 grep下 一、正则介绍 正则是一串有规律的字符串,它使用单个字符串来描述或匹配一系列符合某个语法规则的字符串。 二、grep工具 ...

飞翔的竹蜻蜓
35分钟前
4
0
为什么要在网站中应用CDN加速?

1. 网页加载速度更快 在网站中使用CDN技术最直接的一个好处就是它可以加快网页的加载速度。首先,CDN加速的内容分发是基于服务器缓存的,由于CDN中缓存了不少数据,它能够给用户提供更快的页...

云漫网络Ruan
今天
8
0
亚玛芬体育(Amer Sports)和信必优正式启动合作开发Movesense创新

亚玛芬体育和信必优正式启动合作开发Movesense创新,作为亚玛芬体育的完美技术搭档,信必优利用Movesense传感器技术为第三方开发移动应用和服务。 Movesense基于传感器技术和开放的API,测量...

symbiochina88
今天
4
0
创龙TI AM437x ARM Cortex-A9 + Xilinx Spartan-6 FPGA核心板规格书

SOM-TL437xF是一款广州创龙基于TI AM437x ARM Cortex-A9 + Xilinx Spartan-6 FPGA芯片设计的核心板,采用沉金无铅工艺的10层板设计,适用于高速数据采集和处理系统、汽车导航、工业自动化等领...

Tronlong创龙
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部