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

Хочу сделать единый обработчик для MainMenu   Найти похожие ветки 

 
mik   (2002-04-16 10:24) [0]

Но проблема! Есть меню
N1 N2 N3
N5 N11
N7 N13
N9 N15
Обработчик: OnMenuClick(Sender:TObject);
if (Sender As TObject)=N1 then (* Действие выполняется*)
а вот if (Sender As TObject)=N5 - действие УЖЕ НЕ выполняется.
Вопрос: как заставить обработчик выполнять действия на N5, N7 и др. вложенных меню


 
Толик ©   (2002-04-16 10:32) [1]

в ObjectInspector"е для всех MenuItem указываешь один и тот же обработчик, а уже в это обработчике определяешь, в кого кликнули и что теперь делать. Скорее всего это будет длинный case по id этих MenuItem.


 
Reindeer Moss Eater   (2002-04-16 10:35) [2]

А зачем Sender"а приводить к TObject, если это и есть TObject?



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

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



Память: 0.45 MB
Время: 0.007 c
3-94322
bcg
2002-04-05 16:08
2002.04.29
remote MySQL + Delphi


4-94620
Cheis
2002-02-23 23:54
2002.04.29
Здраствуйте. Как выключить в e равую клавишу мыши, чтобы popup меню не вылезало.


4-94633
Swan70
2002-02-25 22:07
2002.04.29
ListView


1-94419
marlin
2002-04-17 14:39
2002.04.29
Ввод с клавиатуры в консольном приложении


1-94452
Михаил
2002-04-15 12:07
2002.04.29
Создание компонента во время работы программы




   Наверх