如何用鼠标左键模拟触摸

时间:2014-04-19 11:11:54

标签: delphi firemonkey delphi-xe4 firemonkey-fm3

我正在开发一个Firemonkey应用程序,它应该在带触摸屏的Windows上运行。 因为我的开发系统没有触摸屏,所以我无法测试某些控件的行为。例如,TL​​istbox中的平移不适用于鼠标按钮。它仅在设置了KeyState中的ssTouch时有效。 有没有办法通过鼠标模拟触摸?

此致 迈克尔

1 个答案:

答案 0 :(得分:1)

嗯,除了明显的答案(保存并获得触摸屏!),还有一些解决方案,但它们可能有点参与。

如果我想在PC上执行此操作,我首先要复制Firemonkey源代码并将其包含在我的项目中。

检查后,您的本地' Firemonkey的副本正在正确编译,您必须编辑此文件:"" FMX.Platform.Win.pas"。打开此文件,然后搜索" ssTouch"。

在WM_LBUTTONDOWN处理程序内部,必须有一些逻辑来确定" ssTouch"是否是KeyState的一部分。添加它自己,然后左按钮应评估为触摸输入。