Добавлять новые пункты меню Delphi , Компоненты и Классы , Меню
Добавлять новые пункты меню
Обычно, когда Вы создаёте меню в приложении, то код выглядит примерно так:
PopupMenu1 := TPopupMenu.Create(Self);
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := 'First Menu';
Item.OnClick := MenuItem1Click;
PopupMenu1.Items.Add(Item);
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := 'Second Menu';
Item.OnClick := MenuItem2Click;
PopupMenu1.Items.Add(Item);
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := 'Third Menu';
Item.OnClick := MenuItem3Click;
PopupMenu1.Items.Add(Item);
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := '-';
PopupMenu1.Items.Add(Item);
Item := TMenuItem.Create(PopupMenu1);
Item.Caption := 'Fourth Menu';
Item.OnClick := MenuItem4Click;
PopupMenu1.Items.Add(Item);
Однако есть более быстрый способ! Воспользуйтесь функциями NewItem и NewLine:
PopupMenu1 := TPopupMenu.Create(Self);
with PopUpMenu1.Items do
begin
Add(NewItem('First Menu', 0, False, True, MenuItem1Click, 0, 'MenuItem1'));
Add(NewItem('Second Menu', 0, False, True, MenuItem2Click, 0, 'MenuItem2'));
Add(NewItem('Third Menu', 0, False, True, MenuItem3Click, 0, 'MenuItem3'));
Add(NewLine); // Добавляем разделитель
Add(NewItem('Fourth Menu', 0, False, True, MenuItem4Click, 0, 'MenuItem4'));
end ;
Статья Добавлять новые пункты меню раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
:: Главная :: Меню ::