Delphi 如何使Windows 8按住矩形消失？

如果在Windows8中按住触摸屏上的文本框，一段时间后会出现一个矩形。下面是它的图片：

这个矩形应该在你松开手指时消失。此时将显示关联菜单。（例如，请参见记事本。）

然而，在Delphi程序中，当上下文菜单可见时，矩形仍然存在。直到菜单关闭它才会消失。你可以用一个带有TMemo的新VCL应用程序来尝试

我如何解决这个问题

---

Delphi仍然使用Windows 8之前的UI事件（即没有WM_指针），但除此问题外，一切正常。

如果在Touch.TabletOptions中包含toPenTapFeedback，则问题会消失。

您查看了控件的整个属性集了吗？应该有一些设置，你错过了按住类事件。使用德尔福很久以前。。。是否可以在菜单弹出前重新绘制控件（设置为重新绘制或以某种方式）？