PopupMenuItem Click 和 MouseOver 的区别

Question

当菜单项有一个子菜单时，鼠标悬停在展开子菜单时会触发单击事件。

这个点击事件和用户实际点击有什么区别吗？

我使用 TPopupMenu 作为 cxButton 的下拉属性。

编辑 德尔福2007

Answer 1

不确定这是否适用于 D2007；在 D7 中也是如此。你可以尝试以下方法吗？

type
  THackPopupList = class(TPopupList)
  private
    FActuallyClicked: Boolean;
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    property ActuallyClicked: Boolean read FActuallyClicked;
  end;

{ THackPopupList }

procedure THackPopupList.WndProc(var Message: TMessage);
begin
  FActuallyClicked := Message.Msg = WM_COMMAND;
  inherited WndProc(Message);
end;

{ TForm1 }

procedure TForm1.MenuFileOpenClick(Sender: TObject);
var 
  ActuallyClicked: Boolean;
begin
  ActuallyClicked := THackPopupList(PopupList).ActuallyClicked;
  ...
end;

initialization
  PopupList.Free;
  PopupList := THackPopupList.Create;

end.

说明：悬停触发的OnClick是由WM_INITMENUPOPUP发起的，而鼠标点击触发的OnClick是由这个WM_COMMAND发起的。

这取决于已初始化的 Menus.pas。但据我从 Delphi 单元初始化顺序 了解到，即使您将此代码放入辅助单元中。

Answer 2

那么，如果用户实际单击带有子菜单项的 MenuItem，则不会触发 OnClick 事件。因此，区别在于：

procedure TForm1.MenuFileOpenClick(Sender: TObject);
var
  ActuallyClicked: Boolean;
begin
  ActuallyCLicked := TMenuItem(Sender).Count = 0;
end;

如果菜单项具有链接操作：

procedure TForm1.FileOpenExecute(Sender: TObject);
var
  ActuallyClicked: Boolean;
begin
  if Sender is TBasicAction then
    Sender := TBasicAction(Sender).ActionComponent;
  ActuallyCLicked := TMenuItem(Sender).Count = 0;
end;

Answer 3

不，没有。如果用户单击该项目或将其悬停在该项目上，则会触发相同的 OnClick 事件。
我已经针对 Delphi 2009 检查了这一点。