Prozedur mit Parameter zu einem dynamisch erzeugten MenuItem

[CodeX]

Hi DPler!

Ich erzeuge ein PopUp dynamisch und muss für jeden Menüpunkt die gleiche Prozedur zuweisen, jedoch jedes Mal mit einem anderen Parameter.
Also zb

Delphi-Quellcode:

NewItem.OnClick := Berechne(5);
//...
NewItem.OnClick := Berechne(11);

So wie ich mir die Threads hier durchgelesen habe, muss die zugewiesene Prozedur jedoch so deklariert sein:

Delphi-Quellcode:

Berechne(Sender: TObject);

Das bringt mir dann aber herzlich wenig, wenn ich keine Parameter übergeben kann.

Wie lässt sich das sonst realisieren?

[jim_raynor]

Weise der Tag eigenschaft den Wert 5 bzw. 11 zu:

Delphi-Quellcode:

NewItem.Tag := 5;
NewItem.OnClick:=Berechne;

.
.
.

procedure TForm1.Berechne(Sender: TOBject);
var
  Wert: Integer;
begin
  Wert:=(Sender as TMenuItem).Tag;
end;

Eigene Parameter zu definieren funktioniert nicht.

[CodeX]

Super!
Das ist genau richtig und funktioniert prima.

Vielen Dank dir für den schnellen, nächtlichen Service.
Träum was schönes heute Nacht!

:mrgreen: