Главная страницаОбратная связьКарта сайта

Добавлять новые пункты меню

Обычно, когда Вы создаёте меню в приложении, то код выглядит примерно так:


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;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Добавлять новые пункты меню", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info