[The Shadow]

Не получается добавить сабменю в PopupMenu

Код:

    TrayMenu:=CreatePopupMenu;
    AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);
    AppendMenu(TrayMenu, MF_STRING, 2, 'Проверять каждые');
    //Следующие пункты - подменю
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP {пробовал и MF_APPEND и MF_INSERT}, 3, '1 минуту');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 4, '2 минуты');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 5, '5 минут');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 6, '10 минут');
    AppendMenu(TrayMenu, MF_STRING or MF_SEPARATOR or MF_POPUP, 0, nil);
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 7, 'Другое...');
    //Конец подменю
    AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');
    AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');
    SetMenu(Wnd, TrayMenu);

[M.A.D.M.A.N.]

TPopUpMenu

Код:

Var SubMenu:TMenuItem;
Begin
  SubMenu:=TMenuItem.Create(ParentMenuItemNameHere);
  SubMenu.OnClick:=smOnClick;
  SubMenu.Caption:='Sub Menu';
  SubMenu.Tag:=1;
  ParentItemMenuNameHere.Add(SuMenu);
End;

А если надо почистить то

Код:

...
ParentItemMenuName.Clear;
...

[The Shadow]

Мне на WinAPI надо
---

Код:

var
  TrayMenu: HMENU;

[SCrat.ORS]

Код:

    TrayMenu:=CreatePopupMenu;
    SubTrayMenu:=CreatePopupMenu;

//Создание подменю
    AppendMenu(SubTrayMenu, MF_STRING, 3, '1 минуту');
    AppendMenu(SubTrayMenu, MF_STRING, 4, '2 минуты');
    AppendMenu(SubTrayMenu, MF_STRING, 5, '5 минут');
    AppendMenu(SubTrayMenu, MF_STRING, 6, '10 минут');
    AppendMenu(SubTrayMenu, MF_STRING or MF_SEPARATOR, 0, nil);
    AppendMenu(SubTrayMenu, MF_STRING, 7, 'Другое...');
//----------------------

//Создание основного меню
    AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);

   // Вставляем ПодМеню
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, SubTrayMenu, 'Проверять каждые');
   //------------------

    AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');
    AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');
    SetMenu(Wnd, TrayMenu);