Текущий архив: 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
