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读取android设备联系人.Delphixe6中编译通过

Delphi 数组复制利用copymemory 最为完美

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi启动屏幕保护

Delphi eof 判断文件指针是否移动到了文件未尾

Delphi xe增强的rtti妙用－－动态创建包中的窗口类

在 Delphi 中调用 javascript

Delphi listbox 使用

Delphi 如何将access的ole对象字段存储的bmp图象显示出来

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

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