динамическое удаление и вставка в TMenu

← →
kosend (2004-07-28 15:20) [0]

как-то не совсем получается у меня работа с PopupMenu
задача следующая
имеется PopupMenu. два item"а у него присутствую постоянно. и должны быть последними. еще несколько пунктов в процессе работы добавляются и удалюятся динамически. добавляться они должны в начало меню, если так можно выразиться. процедура обновления меню у меня выглядит следующим образом
-----------------------------
i := 0;
while not pmMain.Items[i].IsSeparator do
begin
pmMain.RemoveSubMenu(i);
Inc(i);
end;

FillList;

if List.Count > 0 then
begin
for i := 0 to List.Count - 1 do
begin
pmMain.Insert(i+1, PAnsiChar(DrivesList.Items[i]), nil, []);
end;
end;
--------------------------------------------------------
после первого вызова - все нормально. следующий вызов этой процедуры добавляет пункты меню из List не в начало, а в конец меню. никак не могу разобраться почему.

← →
Gandalf © (2004-08-17 22:36) [1]

Странный метод, Insert вставляет элемент в позицию за номеров i+1, попробуй просто

pmMain.Insert(0, PAnsiChar(DrivesList.Items[i]), nil, []);

динамическое удаление и вставка в TMenu Найти похожие ветки