Динамическое Popupmenu, Как получить индекс выбранного пункта? Опции

[YurKaluga]

Собственно вопрос в "Описании темы ".
Программно наполняю Popupmenu.
Обработчик выбора - один на все (заранее не знаю, сколько будет пунктов).
В обработчике нужно в зависимости от выбранного пункта, выполнить что-то.
Не могу найти у Popupmenu свойство, которое показывает индекс выбранного пункта.
Помогите, плиз!!!
Нужно срочно.

[hardcase]

Тем, элементам, которые ты создаёшь, нужно назначить обработчик OnClick.

var
  Item: TMenuItem;
...

Item:=TMenuItem.Create(PopupMenu1);
...
Item.OnClick:=OnMenuItemClick;
...
PopupMenu1.Items.Add(Item);

Этот обработчик может быть универсальным (как в примере), тогда, чтобы узнать, индекс пункта меню надо выполнить Parent.IndexOf()

procedure TForm1.OnMenuItemClick(Sender: TObject);
  var Item: TMenuItem absolute Sender; // stupid typecast =)
       Index: integer;
  begin
     Index:=Item.Parent.IndexOf(Item);
  end;

Сообщение отредактировано: volvo - 7.11.2006 18:23