Jedem Menuitem eine zusätzliche aktion zuweisen?

[Cylence]

ok also bisher hab ichs so:

Delphi-Quellcode:

procedure Playclick;
begin
  Popupopen := False;
  Filtergraph.play;
end;

procedure Stopclick;
begin
  Popupopen := False;
  Filtergraph.stop;
end;

//..... usw .... 

procedure onPopupopen;
begin
  Popupopen := True;
end;

so ich hätte jetzt gerne das ständige Popupopen := False;
gerne irgendwie einmal untergebracht
so in der art irgendwie

Delphi-Quellcode:

procedure OnEveryMenuitemCLickADD;
begin
  Popupopen := False;
  inherited;
end;

irgendwie muss das doch möglich sein... jetzt verstanden was ich mein?