Caption динамического TMenuItem

← →
aleko (2008-03-15 09:27) [0]

Доброго времени суток.
Столкнулся с такой проблемой:
На форме MainMenu, подменю в него добавляются в процессе выполнения.

mnitem := TMenuItem.Create(MainMenu1); with mnitem do begin caption := Edit1.Text; visible := true; OnClick := MenuClick; end; MainMenu1.Items.Items[1].Add(mnitem);

потом я кликаю по образовавшейся строке меню и срабатывает процедура
MenuClick, мне нужно получить caption строки по которой произошел щелчок, т.е. процедура MenuClick в моей версии выглядит так (в общих чертах):

объявление процедуры:

procedure MenuClick(Sender: TObject);

код процедуры:

ShowMessage(TMenuItem(Sender).Caption);

Суть проблемы:
В ShowMessage он правильно отображает caption нужной строки, а если направить в какой нибудь Edit то становится видно, что в caption появляются, причем в непредсказуемых местах, символы "&". Почему?
Подскажите, что не так?

← →
sniknik © (2008-03-15 10:28) [1]

> Почему?
автоматом вставляются.

> Подскажите, что не так?
все так, все правильно, стандартное поведение, по этому символу видно что следующий это "хоткей", и он подчеркивается (только проблема с русскими меню по моему имеется...).

а вот если тебе этого не нужно, другое дело, отключи. там в меню проперти есть толи avtoхоткей толи другая avtoxxxx, которая по умолчанию "автомат", а ты поставь ее в "мануал" но сам этих символов не вставляй... и все.

← →
sniknik © (2008-03-15 10:37) [2]

> В ShowMessage он правильно отображает caption нужной строки
а подчеркиваний не видно? проверь
ShowMessage("Try &English");
ShowMessage("Теперь &Русский");
если в русском нет подчеркивания то у тебя как раз та самая возможная проблема. (или просто прозевал подчеркивание когда говорил что он правильно отображает)

← →
aleko (2008-03-15 11:15) [3]

> sniknik

спасибо!!! все получилось ))))

...да, подчеркивание видел, но не обратил внимания, не понял что это хоткей ... )

еще раз спасибо!!!

Caption динамического TMenuItem Найти похожие ветки