Вот пример программы, создающей структуру меню большой вложенности двумя
различными способами. Она даст вам пищу для размышлений. Форма содержит
компонент TMainMenu1 и, первоначально, одно подменю с именем SubMenu1.
unit Istopmnu;
interfaceuses
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) dobegin
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 dobegin
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];
whileTRUEdobegin
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.
Пример улучшения кода:
Вместо жесткого кодирования количества подменю и элементов меню для добавления, можно использовать цикл для динамического добавления требуемого количества подменю и элементов меню. Например:
В этом коде цикл используется для добавления требуемого количества подменю и элементов меню, вместо жесткого кодирования.
Еще одна рекомендация - использовать рекурсивную функцию для динамического добавления элементов меню и подменю. Это может сделать код более читаемым и легко поддерживаемым. Например:
В этом коде рекурсивная функция AddMenuItems используется для динамического добавления элементов меню и подменю. Функция принимает объект TMenuItem и целочисленное значение Depth в качестве параметров, и добавляет требуемое количество подменю и элементов меню на этом уровне. Процедура FormCreate вызывает эту функцию для добавления начального подменю и его дочерних элементов меню.
В целом, эти рекомендации могут сделать код более читаемым, поддерживаемым и масштабируемым.
В статье рассматривается пример программы на Delphi, которая создает структуру меню большой вложенности двумя различными способами.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.