Jedem Menuitem eine zusätzliche aktion zuweisen?

[DeddyH]

Delphi-Quellcode:

type
  TMenuItem = class(Menus.TMenuItem)
  public
    procedure Click;override;
  end;

  TFormBlubb = class(TForm)
    PopupMenu1: TPopupMenu;
    Item1: TMenuItem;
    Item2: TMenuItem;
    Item3: TMenuItem;
    ...
  end;

...

implementation

procedure TMenuItem.Click;
begin
  PopupOpen := false;
  inherited;
end;

...