auf dynamisch erzeugte untermenüeinträge zugreifen

[vanilla]

hallo leute,

ich erzeuge dynamisch untermenüeinträge, es können max. 6 einträge werden.. das hab ich auch gut hinbekommen, meine einträge werden immer schön aufgelistet. Jetzt brauche ich aber jeweils ne onclick funktion ?? wie krieg das denn hin ???

ungefähr so erzeuge ich die Einträge
[/delphi

for i := 0 to iMax do
begin


SubItem := TMenuItem.Create(Self); // Erzeugen des Untermenüeintrags
SubItem.Caption:= 'eintrag'; // Name des Untermenüeintrages}
Item.Add(SubItem); // Einfügen des Untermenüeintrages
end; //for

[delphi]

[Meta777]

So sollte es gehen:
@SubItem.OnClick := @MyOnClick;

EDIT:
Dabei wäre zu beachten dass, wenn die Procedure nicht in einer Komponente deklariert ist, die OnClick einen weiteren Parameter (ASelf: TObject) haben muss:
also würde das so aussehen:
procedure OnClick(ASelf: TObject; Sender: TObject);

[DGL-luke]

Das @ braucht man eigentlich nicht.

Das OnClick muss aber bereits implementiert sein.

Etwa so:

Delphi-Quellcode:

procedure TForm1.MenuItemClick(Sender: TObject);
begin
  case (Sender as TControl).Tag of
    0: ;
    1: ;
  end;
end;

Deine SubItems sollten dann ein durchlaufendes Tag haben. Anhand dessen kannst due sie dann innerhalb eines OnClick-Events unterscheiden.

[bitsetter]

Hi,

hier gab es schon mal ein ähnliches Problem.