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

除了通过 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