Скачать: CL | DM;

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


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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c