【转】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事件里判断,是否超过时间间隔才响应。
避免长按后一放手就响应了。