| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Подменю в PopupMenu [D7, XP]

Pit ©   (2006-02-18 17:39:00) 

Доброго времени суток, Мастера подскажите как динамически создавать пункты подменю в PopupMenu ?

---

Pit   (2006-02-18 17:54:00) [1]

Спасибо большое Джо.

---

Джо   (2006-02-18 17:45:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
 Mi, SubMi: TMenuItem;
begin
 // создаем и добавляем пункт меню
 Mi := TMenuItem.Create(PopupMenu1);
 Mi.Caption := 'Menu item';
 PopupMenu1.Items.Add(Mi);

 // добавляем к существующему menu item
 // под-меню
 SubMi := TMenuItem.Create(PopupMenu1);
 SubMi.Caption := 'Submenu item';
 Mi.Add(SubMi);
end;


---

Наверх