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

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

Меню [D7, WinXP]

AbLaZe ©   (2004-06-13 20:22:00) 

Добрый вечер !!! Не подскажите мне как мне сделать следующее ...
Надо в меню MainMenu1 : TMainMenu в пункт N6 добавить программно подпункты (сколько их будет я определенно не знаю эта цифра будет вычисляться по ходу дела) как моно это осуществить ????

---

TechnoDreamer   (2004-06-13 20:54:00) [1]

Пример из хелпа Delphi:
"Данный пример подразумевает, что на главной форме приложения есть главное меню с пунктом 'Windows'. Следующий код добовляет сепаратор и имена всех форм проекта в пункт меню 'Windows'"

var
 NewItem: TMenuItem;
 I : integer;
begin
 { first create the separator }
 NewItem := TMenuItem.Create(Self);
 NewItem.Caption := '-';
 { add the new item to the Windows menu }
 Windows.Add(NewItem);
 { now create and add a menu item for each form }
 for  I := 0 to Screen.FormCount-1 do
 begin
   NewItem := TMenuItem.Create(Self);
   NewItem.Caption := Screen.Forms[I].Name;
   Windows.Add(NewItem);

 end;

end;

---

jack128   (2004-06-13 20:42:00) [2]

> N6.Add(myMenu);

---

Gero   (2004-06-13 20:41:00) [3]

> AbLaZe ©   (13.06.04 20:35)

Какой-то бред...
Откуда у TMainMenu свойство Caption?

Item := TMenuItem.Create(Self);
Item.Caption := Text;
N6.Add(Item);

Сойдет?

---

AbLaZe   (2004-06-13 20:35:00) [4]

А более полный ответ можно .... я пытался так делать но он пишет что типа надо указать после Items в квадратных скобках номер пункта
(я делал так
MyMenu:=TMainMenu.Create(Self);
Mymenu.Caption:=Text; {эта переменная меняется в цикле}
N6.Items.Add(myMenu);

---

Gero   (2004-06-13 20:28:00) [5]

Items.Add

---

Наверх