Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.06;
Скачать: CL | DM;

Вниз

Подскажите про Sender и его Tag   Найти похожие ветки 

 
Voldemar ©   (2002-04-22 19:34) [0]

Доброе время суток!
Подскажите, плз, решение такой проблемы: на форме есть куча Label"ов, на них одно PopUpMenu. У всех лейблов разный Tag. В зависимости от Tag"а надо разные пункты меню блокировать. Так вот, когда на событие TForm1.MoveMenuPopup(Sender: TObject) вешается конструкция
NLabel.Caption:=TControl(Sender).Name;
case TControl(Sender).Tag of

end;
то сендером всегда является именно это PopUpMenu. Где кривизна?


 
Song ©   (2002-04-22 19:50) [1]


procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
With TPopUpMenu(Sender) Do Items[TLabel(PopUpComponent).Tag-1].Enabled:=False;
end;


 
Voldemar ©   (2002-04-22 20:34) [2]

Спасибо, я нашел решение: PopupMenu1.PopupComponent.Tag


 
Song ©   (2002-04-22 22:20) [3]

Я Вам так и написал.



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

Текущий архив: 2002.05.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.01 c
3-17501
Filat
2002-04-12 15:44
2002.05.06
Не стартует 7.0? Ошибка 1069 !!! Что делать?


1-17644
Саша
2002-04-23 10:30
2002.05.06
Размер mdichild окна


3-17487
62mkv
2002-04-11 15:58
2002.05.06
Левые пустые страницы в отчете - как убрать ?


3-17486
Matr
2002-04-12 13:54
2002.05.06
положение горизонтального бегунка DBGrid


1-17621
allrussia
2002-04-22 21:03
2002.05.06
Доброго времени суток, знатоки. Не подскажете ли ламеру ответ на