DELPHI FMX 同时使用LONGTAP和TAP

Posted One逍遥子

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了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 FMX 同时使用LONGTAP和TAP的主要内容,如果未能解决你的问题,请参考以下文章

Delphi FMX 开发APP使用TrueType字库做图标(自己使用图标制作字体)

delphi FMX 数字下拉滑动

Delphi修改FMX Label字体颜色

Delphi修改FMX Label字体颜色

Delphi修改FMX Label字体颜色

delphi xe10 FMX 启动参数