Текущий архив: 2003.03.13;
Скачать: CL | DM;
Вниз
БД и главное меню Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
