ParentItems in MainMenu

[IcyVeins]

So, nochmal eine Frage zum Menu :hi:

Und zwar gibt es doch bestimmt eine Möglichkeit, übergeordnete Menü-Punkte in einem dynamischen Menü abzufragen, z.B. nach folgendem Schema:

a>1.Sub
2.Sub>2.1 Sub

Zeige übergeordnete Menüs(2.1 Sub) >Result= a\2.Sub\

Wäre sehr dankbar, wenn mir jemand helfen könnte und mir die Lösung für dieses Problem präsentiert :cheers:

[marabu]

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

[IcyVeins]

Juhuuu, vielen Dank :-D