Get notified when a TPopupMenu closes?

How can I get notified when a TPopupMenu closes? (Not just by clicking on a menu item but also when closing the popup menu with the Esc key or by clicking elsewhere).

It MUST be a TPopupMenu.

Delphi XE8

PeterDelphinAsked: 2015-08-09

Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

Experts Exchange Solution brought to you by

Enjoy your complimentary solution view.

Get every solution instantly with Premium. Start your 7-day free trial.

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

PeterDelphinAuthor Commented: 2015-08-09

Found the solution here.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial

PeterDelphinAuthor Commented: 2015-08-09

Will give 500 points to whom can tell me how I can get the popup menu NAME in one of these procedures:

procedure TForm1.CM_MenuClosed(var Msg: TMessage);
begin
  Caption := 'PopMenu closed';
  // Name of the popup menu?
end;

procedure TForm1.CM_ExitMenuLoop(var Msg: TMessage);
begin
  Caption := 'PopMenu exited';
  // Name of the popup menu?
end;

Open in new window

LVL 24

jimyXCommented: 2015-08-10

type
  TForm1 = class(TForm)
...
  private
    ActivePopup: TPopupMenu;

    procedure CM_MenuClosed(var msg: TMessage) ; message CM_MENU_CLOSED;
    procedure CM_EnterMenuLoop(var msg: TMessage) ; message CM_ENTER_MENU_LOOP;
    procedure CM_ExitMenuLoop(var msg: TMessage) ; message CM_EXIT_MENU_LOOP;
  public
    { Public declarations }
  end;

procedure TForm1.CM_ExitMenuLoop(var msg: TMessage);
begin
  Caption := 'PopMenu exited';

  if not Assigned(ActivePopup) then Exit; {safety}

  showmessage(ActivePopup.Name);

  ActivePopup:= nil;
end;

//All the PopupMenus shall share this OnPopup event
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  ActivePopup:= (Sender AS TPopupMenu);
end;