Главная страница
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.014 c
4-17733
Cobalt
2002-02-27 15:19
2002.05.06
Доступ к чужим окнам


1-17546
Игорь Алексеев
2002-04-24 09:05
2002.05.06
ColorDialog


14-17681
SPeller
2002-03-29 10:07
2002.05.06
Стартовая страница в IE


1-17581
neodiX
2002-04-22 15:12
2002.05.06
tdump name.dll


1-17574
SaperXL
2002-04-22 09:38
2002.05.06
PaintBox