DELPHI FMX 同时使用LONGTAP和TAP

本文整理自网络，侵删。

 
DELPHI FMX 同时使用LONGTAP和TAP
在应用到管理图标时，如长按显示删除标志，单击取消删除标志。
在FMX的手势管理中，只有长按LONGTAP，点击TAP则是单独的事件，不能在同事件中管理。
在执行LONGTAP后，TAP也会被触发?，解决方案，判断长按和点击是否同位置：
添加变量
TapLoaction:TPointf??;

procedure Tform1.form1Gesture(Sender: TObject;  const EventInfo: TGestureEventInfo; var Handled: Boolean);?
begin
    case  EventInfo.GestureID of
          igilongtap: begin?
                  tapLocation:=  EventInfo.Location;?
                 {执行LONGTAP}
           end;?
     end;?
end;???

procedure Tform1.form1Tap(Sender: TObject; const Point: TPointF);
begin?
     if Point<>tapLocation then begin?
          tapLocation.X:=0;?
          tapLocation.Y:=0;?
         {执行Tap}
    end;?
end;?? 

 

经过测试发现，要更理想的效果，

还需要加一个TIMER设置时间隔，

在ONTAP事件里判断，是否超过时间间隔才响应，

避免长按后一放手就响应了。
 

相关阅读 >>

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi inc函数和dec函数的用法

Delphi application.title在win7下失效了？

Delphi 将memorystream保存到字符串

Delphi combobox的属性和事件、及几个鼠标事件的触发

Delphi paramstr 获取外部参数

Delphi gdi+基本用法总结

Delphi tms web core 在线pdf教程

Delphi firedac获取自增长字段值

Delphi 判断字符是否是汉字

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

转载请注明出处：木庄网络博客 » DELPHI FMX 同时使用LONGTAP和TAP