![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Popup menu [Win2k]
Kruger © (2003-03-23 18:10:00)Всем ку. Все это делается в С++, но разницы почти никакой, потому не пугайтесь.
В процессе работы, прога берет записи из БД и создает popup menu из n элементов (n=количеству записей в БД). Все бы ничего, но мне нужно бы еще что-бы создавались под-меню. А этого я не умею. Кто поможет - биг спасибо.
Вот кусок кода, создания меню:
//------------------------------------------------
int num_items, index;
p_menu->Items->Clear();
num_items=FData->Base->RecordCount;
FData->Base->First();
for (index = 0; index < num_items; ++index)
{
TMenuItem *NewItem = new TMenuItem(p_menu); // Создаем меню
p_menu->Items->Add(NewItem);// Добавляем в пупоп
NewItem->Caption = FData->Base->FieldByName("Name")->AsString;
FData->Base->Next();
NewItem->Tag = index;
NewItem->OnClick = PopupMenuItemsClick;
}
tray->Visible=true;
tray->Minimize();
//------------------------------------------------
jack128 (2003-03-23 22:59:00) [1]подменю это то что делается с помощью Ctrl+Left в IDE&?
Все это делается в Delphi, но разницы почти никакой, потому не пугайтесь.:-))))
PopupMenu.Items[0].Add(TMenuItem.Create(PopupMenu));
Создает подменю в первом пункте меню