Question

我想模仿TComBo列表功能，该功能在用户单击列表“外部”时关闭，但是对于另一个组件（TPanel）。在Delphi XE2中。有什么想法吗？

Answer 1

假设您的小组专注（我从您的问题中“阅读”），然后回复发送到所有焦点窗口的CM_CANCELMODE消息。

type
  TPanel = class(Vcl.ExtCtrls.TPanel)
  private
    procedure CMCancelMode(var Message: TCMCancelMode); message CM_CANCELMODE;
  end;

  ...

{ TPanel }

procedure TPanel.CMCancelMode(var Message: TCMCancelMode);
begin
  inherited;
  if Message.Sender <> Self then
    Hide;
end;

当面板本身没有聚焦时，例如一个孩子控制，然后这将无法正常工作。在这种情况下，您可以跟踪所有鼠标点击（例如，通过使用TApplicationEvents.OnMessage处理程序）并计算点击是否在您的面板范围内：

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if Panel1.Visible and
      (Msg.message >= WM_LBUTTONDOWN) and (Msg.message <= WM_MBUTTONDBLCLK) and
      not PtInRect(Panel1.ClientRect, Panel1.ScreenToClient(Msg.pt)) then
    Panel1.Hide;
end;

但是当点击是 - 例如 - 在属于面板但部分展开在其外部的组合框的列表中时，这仍然不会成功。我不知道如何从点击信息中提取面板。

如何在Delphi中为TPanel（如TCombo）“关闭外部点击”

1 个答案: