Delphi World - Как динамически создавать пункты подменю в PopupMenu
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как динамически создавать пункты подменю в PopupMenu


procedure TForm1.PopupMenu2Popup(Sender: TObject);
var
  mi, msub: TmenuItem;
begin
  with (Sender as TPopupMenu) do
  begin
    // Удаляем все пункты меню

    // while Items.Count > 0 do Items.delete(0);
    // Предыдущий код имел утечку памяти. Коррекция от Andrew Stewart (astewart@Strobes.co.nz)
    while Items.Count > 0 do
      Items[0].Free;

    // Создаем обычный пункт "Первый"
    mi := TMenuItem.Create(self);
    with mi do
    begin
      Caption := 'Первый';
      OnClick := MyClick;
    end;
    Items.Insert(0, mi);

    // Создаем подменю "Подменю" c двумя пунктами "Подменю1" и
    // "Подменю2"
    mi := TMenuItem.Create(self);
    with mi do
    begin
      Caption := 'Подменю';
      msub := TMenuItem.Create(self);
      with msub do
      begin
        Caption := 'Подменю1';
        OnClick := MyClick;
      end;
      Insert(0, msub);

      msub := TMenuItem.Create(self);
      with msub do
      begin
        Caption := 'Подменю2';
        OnClick := MyClick;
      end;
      Insert(1, msub);
    end;
    Items.Insert(1, mi);
  end;
end;

procedure TForm1.MyClick(Sender: TObject);
begin
  beep;
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования