Главная страница
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.009 c
3-17479
Aleksandr
2002-04-11 20:40
2002.05.06
Чем мона заменить TBatchMove для ADO?


1-17614
VJar
2002-04-22 23:29
2002.05.06
Отключение события


1-17536
cad
2002-04-23 21:49
2002.05.06
Таблицы RTF !!СРОЧНО!!


3-17504
gads
2002-04-12 19:41
2002.05.06
не могу посмотреть все записи в таблице


7-17721
mormot
2002-02-05 05:15
2002.05.06
Печать на рулоне