| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание пунктов в меню [D4, Win95/98]

Andrey___ ©   (2003-02-05 09:08:00) 

Как создать(добавить) пункт в меню на этапе выполнения программы

---

Viktor Kushnir   (2003-02-05 09:23:00) [1]

procedure TMainForm.MultiBufferMenuPopup(PointX,PointY :integer);
var
NewMenu: TMenuItem;
begin
NewMenu := TMenuItem.Create(MultiBufferMenu);
NewMenu.Caption := "Tralalala";
NewMenu.Tag := 1; // 2 иди какой хочешь.
NewMenu.OnClick := NewMenuOnClick; //не забудь этот метод
// создать и описать
MultiBufferMenu.Items.Insert(1,NewMenu); //1 - позиция куда
// воткнуть пункт в меню
end;

---

Наверх