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

← →
Gero © (2004-06-13 20:28) [1]

Items.Add

← →
AbLaZe © (2004-06-13 20:35) [2]

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

← →
Gero © (2004-06-13 20:41) [3]

> AbLaZe © (13.06.04 20:35)

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

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

Сойдет?

← →
jack128 © (2004-06-13 20:42) [4]

> N6.Add(myMenu);

← →
TechnoDreamer (2004-06-13 20:54) [5]

Пример из хелпа 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;

Меню Найти похожие ветки