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 gettickcount获取电脑开机时间

Delphi tdirectory.getdirectories获取子目录及文件

Delphi内存映射 与 映射数据获取

Delphi 实现一个程序在另一个程序内运行

Delphi android-api 开发常用函数

Delphi写的简单的文件的打开和关闭

Delphi检测鼠标指针的改变(全局)

Delphi hide

在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

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