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

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

Создание пунктов меню в runtime? [D7, WinME]

XMblPb ©   (2002-12-01 15:23:00) 

Как создавать пункты главного меню в рантайм - необходимо реализовать пункт меню Recent document (недавно открытые документы)? Мастера, подскажите пожалуйста? Заранее благодарен за любую помощь...

---

XMblPb   (2002-12-01 15:45:00) [1]

2LongIsland
Весьма и весьма благодарен!

---

LongIsland   (2002-12-01 15:38:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TMenuItem;
begin
NewItem := TMenuItem.Create(mm);
try
NewItem.Caption := "Do this";
mm.Items[0].Insert(0, NewItem);
except
NewItem.Free;
ShowMessage("Блин, не вышло!");
end;
end;

Если у Items нет индекса, то добавляется пункт в верхнее меню

---

Наверх