Скачать: 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 вся ветка

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



Память: 0.45 MB
Время: 0.01 c