SubMenu

[AidarBik]

Не получается добавить сабменю в 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);

[Alter]

Простой способ:

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button1: TButton;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Procedure AddSubItm(Mi :TMenuItem; Cap :String);

implementation

{$R *.dfm}

Procedure AddSubItm(Mi :TMenuItem; Cap :String);
var Itm :TMenuItem;
begin {простая процедура для добавления пунктов}
 Itm := TMenuItem.Create(Mi);
 Itm.Caption := Cap;
 Mi.Add(Itm);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I :Byte;
begin
 For I:=1 To 25 Do
 begin
  AddSubItm(N2, Format('ПодМеню=%d', [I]));
  AddSubItm(N3, Format('ПодМеню=%d', [I]));
 end;
 TControl(Sender).Enabled := False;
end;

[AidarBik]

Мне на WinAPI надо.

[pu4koff]

кажется для подменю надо создавать новое меню через вызов CreatePopupMenu и в нём создавать все эти пункты подменю. а у пункта "Проверять каждые" добавить флаг MF_POPUP и вместо двойки указать дескриптор этого созданного меню

[AidarBik]

Большое спасибо! Работает!

[Android1]

Здравствуйте,

Подскажите, а зачем нужно CreatePopupMenu, если можно создать выпадающий список меню просто использую AppendMenu ?
То есть вот так:

HMENU My_Main_Menu_Bar = CreateMenu();
HMENU My_File_Menu = CreateMenu();
HMENU My_Help_Menu = CreateMenu();
 
//Добавим кнопки в само меню:
BOOL My_bool_AppendMenu1 = AppendMenuA(My_Main_Menu, MF_POPUP, (UINT_PTR)My_File_Menu, "File");
BOOL My_bool_AppendMenu2 = AppendMenuA(My_Main_Menu, MF_POPUP, (UINT_PTR)My_Help_Menu, "Help");
 
//Добавим выпадающий список в кнопку File:
 
BOOL My_bool_Append_to_File1 = AppendMenuA(My_File_Menu, MF_STRING, NULL, "Open");
BOOL My_bool_Append_to_File2 = AppendMenuA(My_File_Menu, MF_STRING, NULL, "Close");

[BLACK_RAIN]

Сообщение от Android1

Подскажите, а зачем нужно CreatePopupMenu

Не совсем понятен вопрос.
CreatePopupMenu - это меню, которое вываливается, когда вы нажимаете правую кнопку мыши. А так же, это все подмеюшки.
CreateMenu - это меню, которое находится под заголовком окна - "файл, правка, вид, ...". Но когда вы нажимаете на эти пункты, то вам вываливаются менюшки, которые были созданы через CreatePopupMenu.