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

Субменю в PopupMenu   Найти похожие ветки 

← →
Phoenix ©   (2005-05-24 12:32) [0]

Как добавить субменю в PopupMenu?

---

← →
Phoenix ©   (2005-05-24 12:33) [1]

ЧТо бы не возникло непонимания уточню - как ПРОГРАММНО добавить субменю в PopupMenu

---

← →
Gero ©   (2005-05-24 12:35) [2]

> ЧТо бы не возникло непонимания уточню - как ПРОГРАММНО добавить
> субменю в PopupMenu

Не думаю, что кто-то попытался бы сделать это аппаратно.

---

← →
Alx2 ©   (2005-05-24 12:35) [3]

MenuItem.Add(TMenuItem.Create(MenuItem));

---

← →
Alx2 ©   (2005-05-24 12:37) [4]

Пример в Help:

This example assumes that the main form of the application has a main menu with a Windows menu item.  The following code adds a separator, and the name of all forms to the Windows menu.

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.45 MB
Время: 0.022 c