[DungeonLords]

Hi all!

Возник актуальный вопрос. Я кинул на форму PopupMenu и создал у него кучу Items, subItems, в общем, длинная иерархия.

При нажатии на последний элемент иерархии требуется составить историю куда я нажимал. Как это сделать?

[NumLock]

Код:

property Parent: TMenuItem;

[DungeonLords]

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

Код:

property Parent: TMenuItem;

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

Код:

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

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

[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;

[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. Если задать имя Итема как, скажем, Среднеочаговая(мм), знак & не появляется...

[lmikle]

Это знак, указывающий на активную букву (клавишу) для быстрого выбора меню. Если ты в заголовках не используешь этот знак как значимый, то в итоговой строке просто замени его на пустую строку с помощью StringReplace. Если используешь, то это сложнее. Тогда придется пробегать по строке "руками" и заменять одинарный знак на пустую строку, а двойной - на одинарный.