Delphi 如何使用鼠标左键模拟触摸

Delphi 如何使用鼠标左键模拟触摸,delphi,firemonkey,delphi-xe4,firemonkey-fm3,Delphi,Firemonkey,Delphi Xe4,Firemonkey Fm3,我正在开发一个Firemonkey应用程序,它应该运行在带有触摸屏的Windows上。 因为我的开发系统没有触摸屏,所以无法测试某些控件的行为。例如,TListbox中的平移不能使用鼠标按钮。仅当设置了ssTouch in KeyState(按键状态)时,此功能才有效。 有没有办法通过鼠标模拟触摸 问候,, Michael好吧,除了显而易见的答案(保存并获得触摸屏!),还有一些解决方案,但它们可能有点复杂 若我想在PC上实现这一点,我会首先复制Firemonkey源代码,并将其包含在我的项目中

我正在开发一个Firemonkey应用程序,它应该运行在带有触摸屏的Windows上。 因为我的开发系统没有触摸屏,所以无法测试某些控件的行为。例如,TListbox中的平移不能使用鼠标按钮。仅当设置了ssTouch in KeyState(按键状态)时,此功能才有效。 有没有办法通过鼠标模拟触摸

问候,,
Michael

好吧,除了显而易见的答案(保存并获得触摸屏!),还有一些解决方案,但它们可能有点复杂

若我想在PC上实现这一点,我会首先复制Firemonkey源代码,并将其包含在我的项目中

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

在WM_LBUTTONDOWN处理程序内部,必须有一些逻辑来确定“ssTouch”是否是KeyState的一部分。将其添加到您自己中,然后左键应被评估为触摸输入