Hallo,
prinzipiell kannst du es so angehen:
Delphi-Quellcode:
function MenuItemPath(item: TMenuItem): string;
begin
if Assigned(item)
then Result := MenuItemPath(item.Parent) + item.Caption + PathDelim
else Result := '';
end;
procedure TDemoForm.MenuItemClick(Sender: TObject);
begin
with Sender as TMenuItem do
ShowMessage(MenuItemPath(Parent));
end;
Grüße vom marabu