Dynamisches Popup » Procedure mit Parametern

[hibbert]

OK, ich habe meine "Procedur" anders geschrieben:

Delphi-Quellcode:

function tform1.meineproc(pname:string):tnotifyevent;
begin
showmessage(pname);
result:=onClick;
end;

So nun kann ich auch das Project compilieren.

Ich rufe die Procedure, die das PopUpMenü erstellt bei OnFormCreate auf. Da steht ja folgendes drin:

Delphi-Quellcode:

{...}
  aNewItem : array of TMenuItem;
begin
setlength(aNewItem,11);
for i:= 0 to 10 do
  begin
    aNewItem[i] := NewItem(listbox1.Items[i], 0, False, True, meineporc(listbox1.Items[i]), 0, 'item'+inttostr(i));
  end;
{...}

so wenn ich mein Projekt jetzt starte, dann wird aber gleich meine Procedur meineproc ausgeführt, undzwar 11 mal, klicke ich aber auf ein erzeugtes Item passiert nix

warum ?

thx hibbert