[DungeonLords]

Сообщение от poli-smen

Код:

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;

Спасибо, это даже работает... Почти...

Я задал имя Итема TPopul'а как Среднеочаговая(3-7мм)... После выполнения вашего кода получил Среднеочаговая(&3-7мм) Откуда взялся знак & и как от него избавиться?

P.S. Если задать имя Итема как, скажем, Среднеочаговая(мм), знак & не появляется...