Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.05.22;
Скачать: CL | DM;

Вниз

Popup menu   Найти похожие ветки 

 
Kruger ©   (2003-03-23 18:10) [0]

Всем ку. Все это делается в С++, но разницы почти никакой, потому не пугайтесь.

В процессе работы, прога берет записи из БД и создает 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) [1]

подменю это то что делается с помощью Ctrl+Left в IDE&?

Все это делается в Delphi, но разницы почти никакой, потому не пугайтесь. :-))))

PopupMenu.Items[0].Add(TMenuItem.Create(PopupMenu));
Создает подменю в первом пункте меню





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

Текущий архив: 2003.05.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
1-70225
Rocker
2003-05-08 08:46
2003.05.22
Узнать текущее время


1-70386
P@SHA
2003-05-10 19:34
2003.05.22
Открытие текстового файла своей программой


14-70520
ko
2003-05-05 11:24
2003.05.22
Создание формы в Delphi 7


1-70310
SkySlider
2003-05-07 17:48
2003.05.22
Свойство - список у компонента


7-70538
___ALex___
2003-03-24 18:12
2003.05.22
System Tray