自定义组件点击消息

Question

我正在编写一个从速度按钮派生的小组件。我需要做的实际上是覆盖绘画方法，因为我想改变外观。 现在我已经达到了我想在单击按钮时提供不同背景颜色的地步。但是，我无法找到一种方法来捕获组件中的鼠标左键单击消息。

到目前为止我所使用的：

procedure KeyboardButton.WndProc(var Message: TMessage);
begin
  if Message.LParam = VK_LBUTTON then
  begin
    //Some code
  end
  else
    inherited;
end;

当我单击按钮 Message.LParam 不是 1 时，这不起作用。

我也尝试过...

procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

好吧，我知道 CM_MOUSELEAVE 不是代表鼠标单击的消息。但也许有一条像 CM_MOUSECLICK 这样的消息？？？但我找不到它。到底，谁能告诉我什么是 CM_XXXX，因为我在 msdn 上找不到任何内容？似乎是 Delphi 特定的消息。

提前致谢！

Answer 1

VCL 已经为您跟踪 WM_LBUTTONDOWN/UP 消息。当在组件上按住鼠标左键时，将在组件的 ControlState 属性中启用 csLButtonDown 标志（如果 DragMode 属性未设置为 dmAutomatic< /代码>，即）。您的 Paint() 代码可以检查该标志并根据需要调整其背景绘制。

Answer 2

您只需重写 MouseDown 和 MouseUp 方法即可。请记住检查 Button 参数的值！

Answer 3

您没有正确测试鼠标事件。试试这个：

if Message.Msg = WM_LBUTTONDOWN then
  // Some code
else
  inherited;

BTW、TMessage.LParam 和 TMessage.WParam 是使用特定消息类型（例如 WM_LBUTTONDOWN）传递的参数，并且具有不同的含义取决于 TMessage.Msg 实际上是什么。 绝对不应该出现这样的情况：您收到诸如 TMessage 之类的通用消息，并且仅检查 WParam 或 LParam。