Форум: "Базы";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Вниз

БД и главное меню   Найти похожие ветки 

← →
KMI   (2003-02-20 19:53) [0]

Друзья, помогите пожалуйста: надо в главном меню в run-time создать подменю из значений ключевого поля таблицы БД. Значений около 15-20 (количество может меняться), тип - строка из 10 символов (Alfa).

---

← →
passm   (2003-02-21 10:14) [1]

KMI © (20.02.03 19:53)> Напиши процедуру по схеме:
procedure CreateMenuItems(MenuOwner: TComponent; MenuParent: TMenuItem; DataSet: TDataSet; const FieldID, FieldCaption: string);
var
m: TMenuItem;
bm: TBookMark;
begin
bm:= DataSet.GetBookMark;
DataSet.DisableControls;
try
DataSet.First;
while not(DataSet.Eof) do
begin
m:= TMenuItem.Create(MenuOwner);
m.Tag:= DataSet.FieldByName(FieldID).AsInteger;
m.Caption:= DataSet.FieldByName(DieldCaption).AsString;
MenuParent.Add(m);
DataSet.Next
end
finally
if DataSet.BookMarkValid(bm) then
begin
DataSet.GotoBookMark(bm);
DataSet.FreeBookMark(bm)
end;
DataSet.EnableControls
end
end;

Разумеется, надо подумать об обработчиках событий кликов пунктов меню...

---

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

Форум: "Базы";
Текущий архив: 2003.03.13;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.083 c