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

Динамическое создание PopupMenu   Найти похожие ветки 

← →
йцукен   (2006-09-25 14:43) [0]

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

---

← →
Ega23 ©   (2006-09-25 14:53) [1]


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;

---

← →
Ega23 ©   (2006-09-25 15:00) [2]

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

---

← →
йцукен   (2006-09-25 15:08) [3]

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

---

← →
Ega23 ©   (2006-09-25 15:13) [4]

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


[2]

---

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

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



Память: 0.45 MB
Время: 0.043 c