delphi - 有什么方法可以检测是否单击了表单？

Question

<分区>

Answer 1

您需要过滤排队的消息以在全局级别检测鼠标事件。

1. 为 TApplication.OnMessage 添加处理程序。
2. 随心所欲地听取 WM_MOUSEDOWN 或 WM_MOUSEUP，如果目标窗口句柄是窗体句柄或子控件句柄，则做出响应。
3. 确保将消息的 Handled 参数保留为 False，以便将消息传递到其目标。

如果您确实要检测表单激活，请使用 OnActivate。