Динамическое MainMenu

[V_a_d]

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

Подскажите, как правильно выполнить AutoHotkeys := maManual, чтобы убрать из названия пункта меню символ "&"

В процедуре MM1_Click отлавливаю нажатие и в строке Name_Caption := (Sender as TMenuItem).Caption присутствует символ "&". Если он был бы только спереди, то проблем не было, но на разных ОС появляется в разных местах строки.

DM.Q_Lnk.First;
repeat
i := i + 1;
MI := TMenuItem.Create(DM.MM1_);

with MI do
begin
Tag := i;
OnClick := MM1_Click;
Caption := DM.Q_Lnk.FieldByName('Name').AsStri ng;
end;

if DM.Q_Lnk.FieldByName('Path').AsStri ng <> '' then DM.N3.Add(MI);
DM.Q_Lnk.Next;
until DM.Q_Lnk.Eof;

[Serge_Bliznykov]

DM.MM1_

а что это у Вас за объект?!

если это TMainMenu, так ему и задайте:

    DM.MM1_.AutoHotkeys := maManual;

а вообще, конечно, проблема непонятна! Чем вам символ & помешал то?!

[V_a_d]

Так пробовал DM.MM1_.AutoHotkeys := maManual не помогло.

Задача в следующем:
Необходимо запуcкать программы из главного меню.

Есть постоянное главное меню с готовыми разделами "MM1_"
При нажатии на раздел, динамически подгружаются пункты меню из базы.
Название пунктов и путь к программам пользователь заносит в базу самостоятельно. Постоянные пункты меню отслеживаю по MM1_.Tag := (Sender as TMenuItem).Tag. Пункты меню, где путь не прописан не выводятся.

При вызове обработчика применяю фильтр:

Name_Caption := (Sender as TMenuItem).Caption;

Filter := 'Name = ''' + Name_Caption + '''' + ' And OwnerID = ' + IntToStr(Razdel);

Shellexecute(Application .Handle, 'open', PChar('"' + Lnk.FieldByName('Path').AsString + '"'), nil, nil, Sw_ShowNormal);

Придумал временное решение, а может постоянное.

i := 0;
repeat
if Name_Caption[i] = '&' then Delete(Name_Caption, i, 1);
i := i + 1;
until i = Length(Name_Caption);

Есть другой способ?