如何在Tmenu 加入一个 ondblclick 事件?

Question

popup 菜单的popup 和 click 有混淆的地方,我想加入一个双击事件,那位大侠指教一二?谢谢

Answer 1

private
    { Private declarations }
    procedure WndProc(var message :Tmessage );override;
..............................................................procedure TForm1.WndProc(var message: Tmessage);
begin  if message.Msg = WM_RBUTTONDOWN then
   popupmenu1.AutoPopup := False
  else
  if message.Msg = WM_RBUTTONDBLCLK then
  begin
  popupmenu1.AutoPopup := True;
  popupmenu1.Popup(mouse.CursorPos.X,mouse.CursorPos.y);
  end
  else
  inherited WndProc(message);
end;

Answer 2

不是,我在写一个程序时发现,拥有下级子菜单的MenuItem ,它的子菜单弹出时也会触发OnClock 事件,恰好我的程序需要各个MenuItem 都有onclick,
所以只能添加一个事件来解决.