Einem Event zugewiesene Ereignisprozedur ermitteln?

**freejay**

Ich weise (nach bestimmten nicht weiter wichtigen Kriterien) dem OnClick-Event von MenuItems verschiedene Prozeduren zu, z.B.:

markieren

Delphi-Quellcode:

			PopupMenu1.Items[1].OnClick := Prozedur3;

PopupMenu1.Items[2].OnClick := Prozedur1;

PopupMenu1.Items[3].OnClick := Prozedur2;

Wie kann ich später im Code herausfinden, welchem MenuItem ich welche Prozedur zugewiesen habe?

So geht das jedenfalls nicht:

markieren

Delphi-Quellcode:

			for i := 0 to PopupMenu1.Items.Count - 1 do

  if PopupMenu1.Items[i].OnClick = Prozedur1 then

    ...

  else if PopupMenu1.Items[i].OnClick = Prozedur2 then

    ...

  else if PopupMenu1.Items[i].OnClick = Prozedur3 then

    ...

Wie mach ich's richtig? Oder geht das nur mit RTTI oder sowas?

Einem Event zugewiesene Ereignisprozedur ermitteln?

Einem Event zugewiesene Ereignisprozedur ermitteln?

Forumregeln