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;

 

相关阅读 >>

关于公历与农历换算和时间处理的单元 calendar.pas

Delphi工具之tdump

cnpack sqlite tool 2.04

Delphi 利用tidhttp实现文件下载的分块断点续传

Delphi 不用控件用函数实现发email

Delphi 提高unigui开发效率的两个方法

Delphi 遍历所有edit控件

Delphi 取目录下指定文件到列表

Delphi取得cxgrid 合计数

Delphi 将dbgrid的数据导出到excel文件保存

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

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