[poli-smen]

Сообщение от DungeonLords

Спасибо, но чтобы воспользоваться конструкцией вроде

Код:

Form1.Caption:= TMenuItem(Sender).Parent.Parent.Caption+ TMenuItem(Sender).Parent.Caption+ TMenuItem(Sender).caption;

Нужно знать глубину вложения... Как узнать?

Код:

procedure TForm1.MenuItemClick(Sender: TObject);
var
  MenuItem: TMenuItem;
  s: String;
begin
  MenuItem := Sender as TMenuItem;
  s := MenuItem.Caption;
  while MenuItem.Parent <> MenuItem.GetParentMenu.Items do
  begin
    MenuItem := MenuItem.Parent;
    s := MenuItem.Caption+' -> '+s;
  end;
  ShowMessage(s);
end;