Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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

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


 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS