[Angel86rus]

всем привет!
Hellp ? помогите разобраться создаю компонентом TpopupMenu. но потом не знаю как довавить программно в него же еще меню и подменю . rfr

Код:

Pmenu:=TPopupMenu.Create(Self);
with  Pmenu do
    begin
     Pmenu.Name:='pmname_1';
      pnl1.PopupMenu:=Pmenu;
      Items.Add(NewItem('меню1',0, False, True,nil, 0 ,'menup_2'));
      Items.Add(NewItem('меню2',0, False, True,nil, 0 ,'menup_3));
    end;

[Black Raider]

Добавление пункта меню:

Код:

 NewItem := TMenuItem.Create(Self);
  NewItem.Caption := child.Caption;
  form1.PopupMenu1.Items.Add(NewItem);

[Angel86rus]

Сообщение от Black Raider

Добавление пункта меню:

Код:

   form1.PopupMenu1.Items.Add(NewItem);

на счет добавления я понял но не то мне нудно. Мне нужно добавить меню в который я создал уже диномически.

[Angel86rus]

Спасибо разобрался, вот кому нужно.

Код:

 with (GetPopupMenu as TPopupMenu) do
      begin
        Menu:=TMenuItem.Create(self);
        Menu.Caption := btn1.Caption;
        Menu.OnClick := nil;
        Items.Insert(0, Menu);
      end;