TMenuItem - добавить новый элемент выпадающего меню

← →
kserg@ukr.net (2002-07-01 17:37) [0]

Привет.
Нужно програмно добавить нов.эл-т в выпадающее меню.
Делаю так. Бросил на форму 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 подменю, а хотелось бы иметь меню обычного вида.
чё я не так делаю?

спасибо.

← →
Игорь Шевченко (2002-07-01 17:52) [1]

var
NewItem : TMenuItem;
begin
NewItem := TMenuItem.Create(Self);
....Присвоение свойств NewItem
PopupMenu.Items.Add(NewItem);
end;

← →
kserg@ukr.net (2002-07-01 17:58) [2]

спасибо

TMenuItem - добавить новый элемент выпадающего меню Найти похожие ветки