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

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

Динамическое создание popupmenu [D7, XP]

alexa14 ©   (2006-10-08 16:50:00) 

Надо динамически создать popupmenu
Делаю это так:
procedure TForm1.FormCreate(Sender: TObject);
begin
menu:=TPopupMenu.Create(self);
m:=TMenuItem.Create(self);
m.Caption:='123';
menu.Items.Insert(0,m);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
menu.popup(5,5);
end;

Но меню не показывается. В чём может быть дело?

---

alexa14   (2006-10-08 17:04:00) [1]

Всё, разобрался. Было проблема в другом месте

---

Джо   (2006-10-08 16:55:00) [2]

> Но меню не показывается. В чём может быть дело?

Приведенный код вполне рабочий.

---

Проггер из библиотеки   (2006-10-08 16:52:00) [3]

Мне что-то подсказывает, что не хватает привязки к конкретному контролу. Например, у формы свойство PopupMenu...

---

Наверх