Einem Event zugewiesene Ereignisprozedur ermitteln?

[freejay]

Ich baue mir eine Unit, die mir an ein beliebiges bestehendes PopUpMenu ein paar Standardfunktionen anfügt. Das mache ich, indem ich dem PopupMenu zur Laufzeit neue Einträge hinzufüge und sie entsprechend anpasse.

Da ich mir nun nicht extra merken wollte, welche Funktion denn nun auf welchem MenuItem liegt (diese Info brauche ich zum dynamischen Ein- und Ausschalten von Einträgen), wollte ich dafür einfach die verknüpfte Prozedur heranziehen. Scheint aber wohl nicht so einfach zu sein.

Dann muss ich mir halt den Index der jeweiligen Funktion umständlich merken. Umständlich, weil ich entweder für jeden Eintrag extra eine Variable eintragen muss oder - wenn ich ein Array nehme - ich mir wieder extra merken muss, welcher ArrayIndex welcher Funktion entspricht. Da steht dann im Code:

Delphi-Quellcode:

for i := 0 to PopupMenu1.Items.Count - 1 do
  if i = myArray[3] then ... // [3] ist seeehr sprechend...

Sollte es eine einfachere Lösung geben zu einem bestehenden (Popup-) Menü Default-Funktionen hinzuzufügen bin ich ganz Ohr