Текущий архив: 2006.10.15;
Скачать: 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 вся ветка
Текущий архив: 2006.10.15;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.036 c
