Delphi 获得用Android应用程序触摸到的位置(坐标)的方法

本文整理自网络，侵删。

 
procedure TForm1.FormTouch(Sender: TObject; const Touches: TTouches; const Action: TTouchAction);
var
  Touch: TTouch;
begin
  case Action of
    TTouchAction.None:
      Memo1.Lines.Add('TTouchAction.None');
    TTouchAction.Up:
      Memo1.Lines.Add('TTouchAction.Up');
    TTouchAction.Down:
      Memo1.Lines.Add('TTouchAction.Down');
    TTouchAction.Move:
      Memo1.Lines.Add('TTouchAction.Move');
    TTouchAction.Cancel:
      Memo1.Lines.Add('TTouchAction.Cancel');
  end;
  for Touch in Touches do
  begin
    Memo1.Lines.Add(Format('X=%f, Y=%f', [Touch.Location.X, Touch.Location.Y]));
  end;
end;

 

相关阅读 >>

Delphi 时间差函数及部分字符串与日期时间相互转换的函数

Delphi trimleft 删除字符串左边的空格

Delphi 内存管理[6]

Delphi findfiles获取目录下所有文件

Delphi 使用edge browser浏览器组件

Delphi get_hd_serial() 获得磁盘驱动器序列号

Delphi 执行程序并等待完成2

Delphi adoquery查询，如何得到查询记录数？

Delphi版的创建高权限进程

Delphi vista以上系统的进程静音

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

转载请注明出处：木庄网络博客 » Delphi 获得用Android应用程序触摸到的位置(坐标)的方法