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

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

Динамическое создание пунктов меню [D7, WinXP]


Антон ©   (2005-03-10 14:59:00) 

Подскажите, пожалуйста, как это сделать. В принципе не могу понять как добавить пункт меню программно, а не из редактора. Спасибо.


Александр Иванов   (2005-03-10 15:15:00) [1]

var Item:TMenuItem;
...
for i:=0 to n-1 do
begin
Item:=TMenuItem.Create(Self);
with Item do
 begin
 Caption:='qwe';
 GroupIndex:=2;
 end;
N1.Add(Item);
end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо