| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TMenuItem - добавить новый элемент выпадающего меню [D5]
kserg@ukr.net © (2002-07-01 17:37:00)Привет.
Нужно програмно добавить нов.эл-т в выпадающее меню.
Делаю так. Бросил на форму PopupMenu1 с единственным эл-том
и далее
var NewMenuItem: TMenuItem;
Begin
NewMenuItem:= NewItem("Add "+MainForm.quTemp1.FieldByName("Project").AsString, 0, False, True, nil, 0, "None");
NewMenuItem.Tag:= MainForm.quTemp1.FieldByName("Code").AsInteger;
MenuProject.Add(NewMenuItem);
алгоритм работает - пункты в меню добавляются, но меню получается c подменю, а хотелось бы иметь меню обычного вида.
чё я не так делаю?
спасибо.
kserg@ukr.net (2002-07-01 17:58:00) [1]спасибо
Игорь Шевченко (2002-07-01 17:52:00) [2]var
NewItem : TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
....Присвоение свойств NewItem
PopupMenu.Items.Add(NewItem);
end;
| |
