Подскажите про 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]

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

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