Вниз
Скачать: CL | DM;

Менюшка   Найти похожие ветки 

← →
Goblinus ©   (2002-06-22 23:04) [0]

Всем доброго времени суток! Ответьте, PLZ, кто знает, на вопросик:

Как получить доступ к динамически создаваемым пункам меню (в моём случае - у меня есть меню ParentMenu - в нём создаются динамически подменю Name=ItemMenu c Caption"ами ItemMenu1, ItemMenu2...).


← →
Deadlock   (2002-06-23 04:05) [1]

Т.е. какой доступ тебе нужен. Объясни поподробнее....


← →
Proton ©   (2002-06-23 04:20) [2]

Вешаеш на него (на каждый пункт) обработчик OnClick
где проверяеш
if TMenuItem(SENDER).CAPTION="LAME" then
....
Только для этого текст использовать не совсем корректно
лучше сам эендер проверяй т.е.
if sender = items[456] then
...


← →
Goblinus ©   (2002-06-23 10:16) [3]

У меня не совсем так. По Caption"у в меню уменя должен загружаться файл в программу. Так что Caption может быть абсолютно любым. А запоминать каждый Caption в массиве и потом сверять его с тем, который был OnClick"нут - нехорошо вроде бы. Нет ли какого-либо другого способа.

И ещё один вопрос. Нужно осуществить поиск строки в массиве. Можно ли это сделать без цикла (наподобие IndexOf в ListBox1.Items, ComboBox1.Items и т.д.).

Заранее спасибо!


← →
Song ©   (2002-06-23 11:12) [4]

>>Нет ли какого-либо другого способа.
Например по TMenuItem.ID

>>И ещё один вопрос. Нужно осуществить поиск строки в массиве. Можно ли это сделать без цикла
Если загонишь этот массив в класс в компонент где есть IndexOf() - тогда пожалйста.


← →
Goblinus ©   (2002-06-23 13:33) [5]

Спасибо всем! Тема закрыта!


← →
Proton ©   (2002-06-23 15:09) [6]

напоследок .... :)
Ну ты и делай в обработчике
memo1.LoadFromFile(TMENUITEM(SENDER).CAPTION);



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

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



Память: 0.46 MB
Время: 0.007 c
3-9727
Oleg_er
2002-06-11 15:57
2002.07.04
Еще будьте добры, плиииз


3-9766
Trixter
2002-06-13 10:38
2002.07.04
Капризный Halcyon


3-9762
SergeiGenko
2002-06-11 11:38
2002.07.04
ExpressQuantumGrid Suite


6-9937
Kuks
2002-04-22 23:26
2002.07.04
Чем в корне отличается режим работы TServerSocket....


1-9915
qqqqq
2002-06-23 10:39
2002.07.04
*.txt




   Наверх