Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
DenProx
Техник
311 / 169 / 25
Регистрация: 09.10.2009
Сообщений: 3,064
1

Упростить: TPopupMenu и cheked

24.11.2014, 14:05. Просмотров 851. Ответов 1
Метки нет (Все метки)

Всем привет. Подскажите, возможно ли применить оператор Case для TPopupMenu ? Например нужно, в зависимости от выбранного пункта (Cheked=True) , присвоить переменной то или иное значение. Обычно я делаю это таким образом, в обработчике для каждого пункта меню, переменной типа Integer, присваиваю порядковый номер, потом в отдельной процедуре уже выполняю присвоение через case.

Не по теме:

надеюсь мысль понятно изложил :)

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2014, 14:05
Ответы с готовыми решениями:

упростить программу
Составить блок-схему алгоритма и программу на языке Паскаль для расчета и печати 5 таблиц значений...

Упростить релейно-контактную схему
упростить релейно- контактную схему

Как упростить программку (и помогите доделать!)
Цель программы (под вин ХР): форма 1 просто на рабочем столе, закрывается другими приложениями...

Упростить запрос
Здравствуйте не подскажите как упростить запрос, а то пишет ошибку "слишком сложное выражение" ...

Возможно ли упростить цикл?
Хотелось бы спросить можно ли избавиться от костыля в виде цикла тут: //{ ...

1
cotseec
Пишу на Delphi...иногда
1408 / 1267 / 285
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
Завершенные тесты: 3
24.11.2014, 15:24 2
Лучший ответ Сообщение было отмечено DenProx как решение

Решение

Цитата Сообщение от DenProx Посмотреть сообщение
оператор Case для TPopupMenu ?
для всех пунктов один и тот же обработчик OnClick, каждому пункту задать индивидуальный номер (свойство Tag), в обработчике:
Delphi
1
2
3
4
5
6
7
case (Sender as TMenuItem).Tag
0: if (Sender as TMenuItem).Checked then .....
       else.....;
1:  if (Sender as TMenuItem).Checked then .....
       else ...
...... {по количеству пунктов меню}
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2014, 15:24

Нужно упростить код
Delphi 10, MS Access 10, AdoQuery Добрый день. Помогите упростить код. Есть база: Пункт обменна...

Нестандартная реакция TPopupMenu на клавиши
Здравствуйте! Пишу небольшой текстовый редактор с подсказками. Подсказки динамически создаются...

TPopupMenu статус открытия
Доброго! Может кто подкинет идею, как можно определить закрыт ли компонент или само событие...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru