本例尝试在 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.
转载于:https://my.oschina.net/hermer/blog/320561
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-站长，转载请注明出处：https://javaforall.net/109719.html原文链接：https://javaforall.net
