Более быстрый способ добавлять пункты меню

Материал из DRKB

Более быстрый способ добавлять пункты меню[править | править код]

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


    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;


Source: Взято из http://forum.sources.ru
ID: 01300