Главная страница
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.011 c
14-17697
MBo
2002-03-29 16:16
2002.05.06
Заинтересовался вот.


4-17733
Cobalt
2002-02-27 15:19
2002.05.06
Доступ к чужим окнам


4-17754
NikotiN
2002-02-27 18:12
2002.05.06
Вопрос


1-17552
sergey32
2002-04-24 10:22
2002.05.06
DateTimePicker глючит


1-17591
weak
2002-04-22 16:02
2002.05.06
Как сделать не главную форму MDI-формой ?