Скачать: CL | DM;

Динамическое создание popupmenu   Найти похожие ветки 

← →
alexa14   (2006-10-08 16:50) [0]

Надо динамически создать 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;

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

---

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

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

---

← →
Джо ©   (2006-10-08 16:55) [2]

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

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

---

← →
alexa14   (2006-10-08 17:04) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.045 c