Как перенести список с DBLookupListBox в пункт меню

Всем привет! Не так давно начал изучать delphi и созрел первый вопрос, на который не могу сам додумать. Я связываюсь с файлом бд и вывожу столбец вDBLookupListBox. Как из сформированного списка данных создать подпункты меню? Пока могу только создать 1 пункт программно, а нужно весь список. Меню такой формы Файл->Все книги->(Далее нужно сформировать список построчно)Код программы:
Var
NewItem:TMenuItem;
Begin
NewItem:=TMenuItem.Create(Self);
NewItem.Caption:='Book1';
File_menu.Item[0].Add(NewItem);
End;
5 ответов

ainur777, ну в меню это явно делать не стоит. Есть для этого другие компоненты. Например: Treview, ListBox, Combobox... Но никак не меню.


А что потом с этим делать будете? Предположим сделали меню, как потом связать выбранный в нем Item с id записи из таблицы? По тексту Caption если только...


Ну id я программно тоже могу присвоить. Я хочу в меню вывести все книги, далее при нажатии записать все вреременную. Потом уже делать выборку с бд по названию книги


Я хочу в меню вывести все книги
Даже 30 пунктов в меню - жуткое неудобство... Или у Вас там меньше 30 книг?


Да буду ограничивать до 10 книг
Даже 30 пунктов в меню - жуткое неудобство... Или у Вас там меньше 30 книг?
Да планирую ограничить до 10 книг