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;
|