| Georg |
| Отправлено: 23.01.2004, 15:50 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 34
|
Надо программно создать всплывающие меню вроде все просто-
//Создаю меню и подраздел
MyPopupMenu = new TPopupMenu(Form1);
MImagdel= new TMenuItem(Form1);
//Задаю название и видимость
MImagdel->Caption="Раздел";
MImagdel->Visible = true;
//вставляю подраздел
MyPopupMenu->InsertComponent(MImagdel);
//Задаю PopupMenu формы
Form1->PopupMenu=MyPopupMenu;
Но не работае, компилятор ошибок не выдает.
Может чего не хватает? |
|
| Snake |
| Отправлено: 23.01.2004, 17:34 |
|
Ученик-кочегар
Группа: Участник
Сообщений: 22
|
У меня вот так получилось:
//Создаю меню
TPopupMenu* MyPopupMenu = new TPopupMenu(Form1);
//Создаю пункт
TMenuItem* MImagdel= new TMenuItem(MyPopupMenu);
MImagdel->Caption="Раздел";
//Добавляю пункт к меню
MyPopupMenu->Items->Add(MImagdel);
//Привязываю меню к форме
Form1->PopupMenu=MyPopupMenu; |
|
| Georg |
| Отправлено: 26.01.2004, 15:05 |
|
Дежурный стрелочник
Группа: Участник
Сообщений: 34
|
Спасибо! Вся разница в последней строчке. |
|
