БД и главное меню [D5, D6, D7, Paradox]
KMI © (2003-02-20 19:53:00)
Друзья, помогите пожалуйста: надо в главном меню в run-time
создать подменю из значений ключевого поля таблицы БД. Значений
около 15-20 (количество может меняться), тип - строка из 10
символов (Alfa).
passm (2003-02-21 10:14:00) [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;
Разумеется, надо подумать об обработчиках событий кликов
пунктов меню...
Наверх 
ЧАТ |
Орешник |
|
