Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 510

•  TDictionary Custom Sort  6 530

•  Fast Watermark Sources  6 317

•  3D Designer  9 263

•  Sik Screen Capture  6 652

•  Patch Maker  7 029

•  Айболит (remote control)  7 039

•  ListBox Drag & Drop  5 907

•  Доска для игры Реверси  97 272

•  Графические эффекты  7 239

•  Рисование по маске  6 541

•  Перетаскивание изображений  5 406

•  Canvas Drawing  5 776

•  Рисование Луны  5 484

•  Поворот изображения  5 012

•  Рисование стержней  3 565

•  Paint on Shape  2 826

•  Генератор кроссвордов  3 705

•  Головоломка Paletto  2 984

•  Теорема Монжа об окружностях  3 789

•  Пазл Numbrix  2 498

•  Заборы и коммивояжеры  3 179

•  Игра HIP  2 147

•  Игра Go (Го)  2 085

•  Симулятор лифта  2 458

•  Программа укладки плитки  2 124

•  Генератор лабиринта  2 600

•  Проверка числового ввода  2 276

•  HEX View  2 607

•  Физический маятник  2 219

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



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

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


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;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте