Быстрый способ добавлять пункты меню
Быстрый способ добавлять пункты меню
Быстрый способ добавлять пункты меню 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;