PopupMenu

← →
V_a_d (2012-03-17 23:50) [0]

Здравствуйте!

У меня в программе создается динамически PopupMenu.

При обработке пункта с содержанием цифры, название пункта сохраняется со знаком & перед цифрой.

Как избавиться от этого знака?

← →
Дмитрий С © (2012-03-17 23:55) [1]

AutoHotkey := maManual

← →
V_a_d (2012-03-18 00:05) [2]

Помогло.

Спасибо за оперативный ответ.

← →
Дмитрий С © (2012-03-18 00:06) [3]

> обработке пункта с содержанием цифры

Имей ввиду, что обрабатывать caption menuitem-в плохая идея.

← →
V_a_d (2012-03-18 00:27) [4]

Стоит задача выбрать раздел --> подраздел и название подраздела вставить в таблицу.

Я вычисляю так

FPopupResult := FPopupMenu.Items[FPopupMenu.Tag - 1].Items[FPopup2Menu.Tag - 1].Caption;

Как можно по другому?

Если у тебя данные хранятся в визуальных контролах, а не в специальной структуре, куда контрол только ссылается - это недолгоживущая конструкция.
Лучше - хранить данные отдельно, контрол с показом данных - отдельно (ссылаясь через тег или индекс). Например:
procedure TfmMain.mni1Click(Sender: TObject); var NodeIndex: Integer; CaptionStr: string; begin NodeIndex := TMenuItem(Sender).Tag; CaptionStr := GetCaptionByIndex(NodeIndex); end;

PopupMenu Найти похожие ветки