Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
ВнизДинамическое создание 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.10.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c