Einem Event zugewiesene Ereignisprozedur ermitteln?

[freejay]

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

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:

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?

[himitsu]

versuch mal:
if TMethod(PopupMenu1.Items[i].OnClick).Code = TMethod(Prozedur1).Code then Eine Methode besteht ja aus einem Methodenzeiger und dem zugehörigen Objekt.

[freejay]

TMethod(Prozedur1) kreidet der Compiler als "Ungültige Typumwandlung" an...

[uligerhardt]

Zitat von freejay:

Wie kann ich später im Code herausfinden, welchem MenuItem ich welche Prozedur zugewiesen habe?
[snip]
Wie mach ich's richtig?

Am besten gar nicht. Was für ein Problem willst du denn damit lösen? Da gibt's sicher eine schönere Lösung.

[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

[nahpets]

Hallo,

schau mal nach RTTI z. B. auf dieser Seite: delphirtti.htm.
Habe schonmal eine entsprechende Routine geschrieben, hab' die Sourcen aber zur Zeit nicht verfügbar.

[uligerhardt]

Zitat von freejay:

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

Du scheinst einen festen Satz von Funktionen zu haben. Dann würde ich pro (potentiell) erzeugtem MenuItem eine Variable reservieren. Dann kannst du doch nachher viel besser damit arbeiten. Kein Suchschleifen und so, einfach

Delphi-Quellcode:

if not Frobbering then
  FFrobberItem.Visible := False;

oder so.

[himitsu]

Du kannst doch dem .Tag der Items eine ID zuweisen.
dann brauchst du du dir nur zu merken welche Funktion welche ID besitzt.

[freejay]

Daran habe ich auch schon gedacht. Dann darf aber die Anwendung nicht schon die Tags verwenden und ich habe wieder keinen sprechenden Code:

Delphi-Quellcode:

for i := 0 to PopupMenu1.Items.Count - 1 do 
  
  if PopupMenu1.Items[i].Tag = 1 then 
    ... 
  else if PopupMenu1.Items[i].Tag = 2 then 
    ... 
  else if PopupMenu1.Items[i].Tag = 3 then 
    ...

Natürlich könnte ich noch Konstanten für die Tags anlegen, aber das ist alles so umständlich...

Ich hatte gehofft, dass da vielleicht was mit den erweiterten RTTI-Möglichkeiten von Delphi2010 geht?

[freejay]

Zitat von uligerhardt:

...
Du scheinst einen festen Satz von Funktionen zu haben. Dann würde ich pro (potentiell) erzeugtem MenuItem eine Variable reservieren. Dann kannst du doch nachher viel besser damit arbeiten. Kein Suchschleifen und so, einfach

Delphi-Quellcode:

if not Frobbering then
  FFrobberItem.Visible := False;

oder so.

Das scheint mir eine gute Idee. Schön zu schreiben und zu lesen und ich muss mich (noch) nicht stundenlang mit RTTI auseinandersetzen...