Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
KANSoftWare

Динамическое добавление пунктов меню 2

Delphi , Компоненты и Классы , Меню

Динамическое добавление пунктов меню 2

Автор: Neil J. Rubenking

Вот пример программы, создающей структуру меню большой вложенности двумя различными способами. Она даст вам пищу для размышлений. Форма содержит компонент TMainMenu1 и, первоначально, одно подменю с именем SubMenu1.


unit Istopmnu;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    SubMenu1: TMenuItem;
    procedure AClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.AClick(Sender: TObject);
var
  TM: TMenuItem;
  Lev: Word;
begin
  MessageBeep(0);
  TM := Sender as TMenuItem;
  if TM.Count > 0 then
    Caption := 'подменю'
  else
    Caption := 'элемет меню';
  Caption := Caption + ' с именем "' + TM.Name + '"';
  Lev := 0;
  while (TM.Parent <> nil) and (TM.Parent is TMenuItem) do
  begin
    TM := TM.Parent;
    Inc(Lev);
  end;
  case Lev of
    1: Caption := 'Верхний уровень ' + Caption;
    2: Caption := '2-й уровень ' + Caption;
    3: Caption := '3-й уровень ' + Caption;
  else
    Caption := Format('%d-й уровень %s', [Lev, Caption]);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  TM: TMenuItem;
  N: Integer;
begin
  TM := SubMenu1;
  TM.Add(NewItem('&Элемент', 0, False, True, AClick, 0, 'MenuItem2'));
  for N := 2 to 5 do
  begin
    TM.Add(TMenuItem.Create(nil));
    TM := TM.Items[TM.Count - 1];
    TM.Caption := '&Меню';
    TM.Name := 'SubMenu' + IntToStr(N);
    TM.OnClick := AClick;
    TM.Add(NewItem('&Элемент', 0, False, True, AClick, 0,
      'MenuItem' + IntToStr(N + 1)));
  end;
  MainMenu1.Items.Add(NewSubMenu('Меню&2', 0, 'SM1',
    [NewItem('&Элемент', 0, False, True, AClick, 0, 'MI2'),
    NewSubMenu('&Меню', 0, 'SM2',
      [NewItem('&Элемент', 0, False, True, AClick, 0, 'MI3'),
      NewSubMenu('&Меню', 0, 'SM3',
        [NewItem('&Элемент', 0, False, True, AClick, 0, 'MI4'),
        NewSubMenu('&Меню', 0, 'SM4',
          [NewItem('&Элемент', 0, False, True, AClick, 0, 'MI5'),
          NewSubMenu('&Меню', 0, 'SM5',
            [NewItem('&Элемент', 0, False, True, AClick, 0, 'MI6')
            ])
          ])
        ])
      ])
    ]));
  TM := MainMenu1.Items[1];
  while TRUE do
  begin
    TM.OnClick := AClick;
    if TM.Count < 2 then
      Break;
    TM := TM.Items[1];
  end;
end;

end.

Это программный код на Delphi, демонстрирующий два способа динамически добавлять элементы меню к основному меню с множественными уровнями вложенности.

Первая часть программы создает компонент TMainMenu с инициализированным подменю SubMenu1. Процедура FormCreate добавляет дополнительные подменю и элементы меню к этому основному меню. Она использует метод TMenuItem.Create для создания новых элементов меню, устанавливает их заголовки, имена и события клика, а затем добавляет их в подменю.

Вторая часть программы создает схожее основное меню с множественными уровнями вложенности с помощью функций NewSubMenu и NewItem. Эти функции используются для динамического добавления элементов меню и подменю к основному меню.

Процедура AClick вызывается при клике на элемент меню, и она отображает информацию о кликнутом элементе меню,such as its name, caption and level in the menu hierarchy.

Пример улучшения кода:

Вместо жесткого кодирования количества подменю и элементов меню для добавления, можно использовать цикл для динамического добавления требуемого количества подменю и элементов меню. Например:

procedure TForm1.FormCreate(Sender: TObject);
var
  TM: TMenuItem;
  N: Integer;
begin
  TM := SubMenu1;
  for N := 1 to 5 do
  begin
    TM.Add(TMenuItem.Create(nil));
    TM := TM.Items[TM.Count - 1];
    TM.Caption := '&Меню';
    TM.Name := 'SubMenu' + IntToStr(N);
    TM.OnClick := AClick;
    if N < 5 then
      TM.Add(NewItem('&Элемент', 0, False, True, AClick, 0, 'MenuItem' + IntToStr(N + 1)));
  end;
end;

В этом коде цикл используется для добавления требуемого количества подменю и элементов меню, вместо жесткого кодирования.

Еще одна рекомендация - использовать рекурсивную функцию для динамического добавления элементов меню и подменю. Это может сделать код более читаемым и легко поддерживаемым. Например:

procedure TForm1.AddMenuItems(TM: TMenuItem; Depth: Integer);
begin
  TM.Caption := '&Меню';
  TM.Name := 'SubMenu' + IntToStr(Depth);
  TM.OnClick := AClick;
  for N := 0 to 4 do
  begin
    TM.Add(TMenuItem.Create(nil));
    TM := TM.Items[TM.Count - 1];
    if Depth < 5 then
      AddMenuItems(TM, Depth + 1);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AddMenuItems(SubMenu1, 0);
end;

В этом коде рекурсивная функция AddMenuItems используется для динамического добавления элементов меню и подменю. Функция принимает объект TMenuItem и целочисленное значение Depth в качестве параметров, и добавляет требуемое количество подменю и элементов меню на этом уровне. Процедура FormCreate вызывает эту функцию для добавления начального подменю и его дочерних элементов меню.

В целом, эти рекомендации могут сделать код более читаемым, поддерживаемым и масштабируемым.

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


Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.


:: Главная :: Меню ::


реклама


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru

Время компиляции файла: 2024-12-22 20:14:06
2025-01-29 05:45:16/0.0036258697509766/0