FireMonkey 手机 APP 的手势

最新推荐文章于 2025-10-23 16:18:49 发布

原创最新推荐文章于 2025-10-23 16:18:49 发布 · 1.6k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #FireMonkey #app

本文介绍如何使用Delphi实现触摸屏上的手势识别功能，包括上划和下划等基本手势，并提供了具体的代码实现及步骤说明。

手机触摸屏，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。