FireMonkey 手机 APP 的手势


本文整理自网络,侵删。

 
手机触摸屏,APP 如何判断使用者的手势?如果能判断,当然可以根据手势,APP 做相应的动作。

比如,我们可以用触摸屏来当作遥控器(很多游戏都是这么干的啦)。

在 Delphi 里面,废话少说上代码:

procedure TForm1.Panel1Gesture(Sender: TObject;
  const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);
var
  S: string;
begin
  if GestureToIdent(EventInfo.GestureID, S) then begin
  begin
    Memo1.Lines.Add(S + ' = ' + IntToStr(EventInfo.GestureID)); 
    case EventInfo.GestureID of
      sgiUp: Memo1.Lines.Add('上划');
 
      sgiDown:Memo1.Lines.Add('下划');
    end;
  end;
 
 
    Handled := True;
  end;
end;
 


要点:
1. 拖一个 TGestureManager 到界面上,GestureManager1。
2. 设置需要手势的界面元素,比如一个 Panel 的 Touch 属性底下的 GestureManager 属性为 GestureManager1.
3. 设置 Touch 属性底下的 Gestures 属性底下的 Standard 属性,勾选里面你要的手势。比如,上划,下划。
4. 在这个界面控件的 OnGestrue 事件里面写代码,检测 EventInfo.GestureID。
--------------------- 
作者:pcplayer 
来源:CSDN 
原文:https://blog.csdn.net/pcplayer/article/details/69665934 
版权声明:本文为博主原创文章,转载请附上博文链接!

相关阅读 >>

Delphi xe string与tstringbuilder的关系

Delphi用socket api实现路由追踪

Delphi在case语句中使用字符串

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi winapi: loadstring - 从资源中载入字符串

Delphi保存读取utf-8的文本文件

idftp无法设置transfertype属性

Delphi中使用activex的一些心得

Delphi trect的宽和高

Delphi 一个线程安全的轻量级的日志类

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...