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