Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Динамическое добавление пунктов меню

Delphi , Компоненты и Классы , Меню

Динамическое добавление пунктов меню

Честно говоря, я так и не понял к чему вы хотите добавлять новые пункты меню - к верхнему уровню или в качестве подменю. На всякий случай я публикую оба метода. Выбирайте любой.

Новый элемент верхнего уровня:


procedure tform1.addmainitem(s: string);
var
  newitem: Tmenuitem;
begin
  newitem := tmenuitem.create(Mainmenu1);
  newitem.caption := s;
  {если вы хотите определить событие onclick
  newitem.onclick:=Dynamenuclick; }
  {добавляем это к верхнему уровню меню}
  mainmenu1.items.insert(mainmenu1.items.count, newitem);
  removemenu1.enabled := true;
  addmenuitem1.enabled := true;
end;

Создание подменю:


procedure tform1.addsubitem(s: string; to : integer);
var
  newitem, toitem: Tmenuitem;
begin
  {to = верхний уровень меню для нового пункта}
  toitem := mainmenu1.items[to ];
  newitem := tmenuitem.create(toitem);
  newitem.caption := s;
  {если вы хотите определить событие onclick
  newitem.onclick:=Dynamenuclick; }
  toitem.onclick := nil;
  toitem.insert(toitem.count, newitem);
  removemenuitem1.enabled := true;
end;

Статья Динамическое добавление пунктов меню раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Меню ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
09.12.2019 05:14:20/0.3891270160675/0