Динамическое создание 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]

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

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