TMenuItems zur Laufzeit erstellen und auf OnClick reagieren

[jesus]

Hallo,

ich möchte im Main-Menu meines Programms dynamisch MenuItems erzeugen. Das krieg ich auch hin indem ich mir ein MenuItem definiere und mit der Funktion Add hinzufüge. Im OnClick definiere ich eine Funktion die bei onClick ausgeführt wird. Das mache ich mit mehreren Items innerhalb einer Schleife so wie angedeutet :

{alles in einer Schleife

item:= TMenuItem.Create(self);
item.caption:= 'beliebiger Text';
item.onClick:= ClickProcedure;

menu.items.items[0].add(item);

}

... aber wie kriege ich jetzt raus auf welches MenuItem geklickt wurde ? Ich kann in ClickProcedure jetzt Sachen ausführen, aber nicht abghängig vom geklickten Item ? wie macht man sowas ?

Grüße jesus

[Muetze1]

Die Click Methode die du zugewiesen hast, hat einen Parameter: Sender. Dieser enthält immer das TMenuItem, welches das Ereignis ausgelöst hat. Dies ist bei so gut wie allen Events so, damit man unterscheiden kann, welches Element das Ereignis ausgelöst hat.

[Bernhard Geyer]

Du könntest das Tag-Property setzen und für die unterschiedung verwenden.

[jesus]

an Sender hatte ich auch schon gedacht, aber ich krieg's nicht hin, den Items einen Namen zu geben ...

[marabu]

Das mit dem Namen ist nicht schwer:

menuItem.Name := 'abc'; Alternativ kannst du auch die Funktion NewItem() aus der Unit Menus verwenden. Besser als der Name ist aber ein tag value, wie Bernhard schreibt. Den kannst du dann im event handler recht einfach über ein case statement auswerten:

Delphi-Quellcode:

procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
  with Sender as TMenuItem do
    case Tag of
      TAG_MI_DOTHIS:
        ; // dein code
      else 
        ; // auch dein code
    end;
end;

Grüße vom marabu

[jesus]

Danke ... ich kannte den as-Operator noch nicht. Mit dem Tip hab ich's hinbekommen ....

jesus