在iOS和Android中获取指压的位置

我正在使用Delphi XE5为Android(和iOS)开发.

使用Delphi XE5中Touch属性的InteractiveGestures,我可以获得一个GestureEvent用于Zoom,Pan,Rotate,TwoFingerTap,PressAndTap,LongTap和DoubleTap.所有这些都附带一个TGestureEventInfo对象,我可以在其中获取事件的位置,例如.手指的坐标.

然而,似乎没有一个只是简单的点击/按下的手势.我知道在这种情况下会触发OnClick事件,但是OnClick事件没有TGestureEventInfo对象,因此我无法获取tap的位置.这似乎是获取信息的一个非常重要的事件.

我错过了什么吗？如何获得简单点击手势的位置？

解决方法:

使用OnMouseDown / Up事件：

procedure TForm17.Button1MouseDown(Sender: TObject; Button: TMouseButton; 
                                   Shift: TShiftState; X, Y: Single);
begin

end;

看到你得到X和Y坐标.

procedure TForm17.Button1Click(Sender: TObject);
begin

end;

有了OnClick,你什么也得不到.

买者自负
请注意,OnClick在控件内部的MouseDown和同一控件内的MouseUp之后触发,没有任何其他MouseUp或Down.
如果要与OnClick具有相同的行为,则应检查该问题.

如果在释放单击之前单击按钮内部并向外移动,则不应将其注册为单击.

为什么OnClick没有给出坐标
FireClick中的OnClick与VCL中的OnClick相同.
OnClick是OnMouseDown和OnMouseUp的总和,因此没有一个地方发生点击,因为VCL不想在Down或Up坐标之间进行选择.

我的建议
触发OnClick事件,但在MouseDown中注册坐标.

procedure TForm17.Button1MouseDown(Sender: TObject; Button: TMouseButton; 
                                   Shift: TShiftState; X, Y: Single);
begin
  ClickGestureInfo.GestureID:= somethingNotAlreadyInUse;
  ClickGestureInfo.Location:= Point(x,y);
end;

function ClearGestureInfo: TGestureEventInfo;
begin
  FillChar(Result, SizeOf(Result), #0);
end;

procedure TForm17.Button1Click(Sender: TObject);
begin
  if ClickGestureInfo.GestureID = somethingNotAlreadyInUse then begin
    //do stuff
    ClickGestureInfo:= ClearGestureInfo; 
  end;
end;

它通常也没有用于记录OnMouseUp坐标,因为如果MouseDown和MouseUp在空间附近,则单击只是一次单击.

标签：android,ios,delphi,firemonkey,delphi-xe5
来源： https://codeday.me/bug/20190825/1719180.html