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

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

Динамическое создание PopupMenu [D7, XP]

йцукен ©   (2006-09-25 14:43:00) 

Необходимо к уже статически созданному PopupMenu добавить динамически еще один пункт, но так чтоб он был с подменю (пункт со стрелочкой). И объясните как назначить каждому из пунктов подменю процедуру обработки события OnClick. Спасибо.

---

Ega23   (2006-09-25 15:13:00) [1]

> Подождите, он жже просто создаст дополнительные пункты меню,
>  а мне нужно именно пункт с подменю


[2]

---

йцукен   (2006-09-25 15:08:00) [2]

Подождите, он жже просто создаст дополнительные пункты меню, а мне нужно именно пункт с подменю

---

Ega23   (2006-09-25 15:00:00) [3]

Да, ещё обрати внимание на TMenuItem.Parent

---

Ega23   (2006-09-25 14:53:00) [4]


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;

---

Наверх