Скачать: CL | DM;

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

← →
AbLaZe ©   (2004-06-13 20:22) [0]

Добрый вечер !!! Не подскажите мне как мне сделать следующее ...
Надо в меню 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c