Индекс элемента подменю.

[Pixelrom33]

как через функцию клика на элемент меню получить его индекс?

[Аватар]

TMenuItem(Sender).MenuIndex

[Pixelrom33]

чтот неполучается( мне нужен номер элемента в подсписке.

мне нужно чтобы при нажатии на элементы 1-10. выдавался их номер.

[Аватар]

procedure TForm1.MenuItemClick(Sender: TObject);
begin
  ShowMessage(IntToStr(TMenuItem(Sender).MenuIndex+1));
end;

OnClick всех пунктов нацелить на MenuItemClick

[Pixelrom33]

о) спасибо большое