Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Вниз

Событие OnClick для меню   Найти похожие ветки 

 
Shark2001   (2002-03-27 09:54) [0]

В процессе выполнения программы в меню должны добавлятся пункты меню (примерно 30). Как сделать чтобы для всех этих пунктов был один и тотже код, но чтобы можно было определить, какой именно пункт меню был выбран ?
Помогите пожалуйста.


 
DieHard   (2002-03-27 09:58) [1]

Установи свойство Tag у каждого пункта меню со своим значением и в общем обработчике его проверяй


 
Shark2001   (2002-03-27 10:10) [2]

Дело в том что в общем обработчике Tag проверить нельзя т.к. Он имеет единственный входящий параметр Sender:TObject, который не имеет Tag


 
gek   (2002-03-27 10:13) [3]

If (Sender as TMenuItem).Tag = 1 then


 
Adder   (2002-03-27 10:17) [4]

(Sender as TMenuItem).Tag


 
kull   (2002-03-27 10:56) [5]

А еще у пунктов меню есть свои индексы.


 
Shark2001   (2002-03-27 10:57) [6]

Спасибо !!!


 
Shark2001   (2002-03-27 10:59) [7]

Kull с индексами тоже не получается т.к. пункты меню добавляются в разном порядке.
Мне подходит вариант Adder и gek



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

Форум: "Основная";
Текущий архив: 2002.04.08;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.005 c
14-22792
BorisMor
2002-02-26 10:11
2002.04.08
Какой инсталятор лучше всего жмет ?


1-22768
yar
2002-03-27 11:59
2002.04.08
FFT


3-22555
Turalyon
2002-03-15 15:15
2002.04.08
Сервисы и IB


1-22654
solo
2002-03-28 11:32
2002.04.08
Вся работа стоит.


1-22631
dimonf
2002-03-27 18:05
2002.04.08
Почему стандартная библиотека Word2000 ругается ElntfCastError?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский