Динамическое создание 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]

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

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

[2]

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