TPopUpMenu Einträge zur Laufzeit ändern OnClick

[venc]

Hallo,

ich brauche Hilfe bei einem kleinen Problem, ich hab schon Google sowie das Forum hier befragt, die dort angewendeten Lösungen funktionieren bei mir leider nicht. Aber ersteinmal das Problem:

Mein Programm fügt zur Laufzeit einem existierenden PopUpMenu einzelnde Items hinzu.
Das funktioniert auch problemlos.
Nun, es liegt auf der Hand, dass man die Items aus dem PopUpMenu auch mit einer procedure verknüpfen möchte und das bereitet mir Kopfschmerzen.

Wie Luckie hier schreibt Link meckert mein Delphi 2005 leider, an folgender Stelle bleibt der compiler stehen:

NewItem.OnClick := OnMenuItemClick; Mit der Fehlermeldung:
[Fehler] Unit2.pas(124): E2009 Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Ich hab nun schon mehrere Lösungsansätze angeschaut und jedes mal wird es so gelöst (Ohne der OnClick Procedure einen Sender zuzuweisen) und es funktioniert bei mir nicht, entweder mit der eben erwähnten Fehlermedlung oder anderen... Habe nun schon nahezu alle möglichen schreibweisen durch.

Ich hoffe es liegt an einer falschen Deklaration eienr Variabel, hier mal die ganze Procedure:

Delphi-Quellcode:

procedure VariableMenuItemAdd(Menu: TPopUpMenu; ItemCaption: String);
var
  NewItem: TMenuItem;
begin
  NewItem:=TMenuItem.Create(Form2);
  inc(counter);
  NewItem.Caption:=ItemCaption;
  NewItem.Tag:=counter;
  NewItem.OnClick := OnMenuItemClick;
  Menu.Items.Add(NewItem);
end;

Ohne die Zeile NewItem.OnClick := OnMenuItemClick; funktioniert es... nur das OnClick lässt sich nicht zuordnen.... Hilfe!
Meine Vermutung, da bereits ein menu vorhanden ist muss ich mit NewItem:=TMenuItem.Create(Form2); kein neues erstellen, aber wie soll es sonst gehen?

Danke für die Hilfe

Edit: Die Vermutung ist falsch erstelle ja garkein zweites Menu

[taaktaak]

VariableMenuItemAdd() muss eine Methode sein (d.h. im private-Abschnitt deklariert)

[TBx]

Erst einmal herzlich willkommen in der DP!

Zeig doch mal bitte, wie Du die ONClick-Prozedur deklariert hast.

Diese muss zum einen eine Methode des Objektes sein und zum anderen auch eine bestimmte Form haben.

Gruß

[venc]

Dies sind komischer Weise nicht meine ersten Beiträge, aber trozdem danke für die Begrüßung

Da wird der Fehler liegen, sie ist nirgendwo deklariert...

Edit: Du sprichst die spezielle Form an, ich habe leider keinen blassen Schimmer wie diese aussieht... Kannst du mir auf die Sprünge helfen?

MfG

Edit2: Habs.. man musste vor die eigenen procedures noch nen TForm2 hängen thx!