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

Previous  Top  Next

    
 

 

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

 

Code:

   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:

Code:

   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;

 

 

©Drkb::01300

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