Как заменить подменю на другое?

← →
Muller (2005-08-04 16:07) [0]

const
MENU_POSITION := 8;

var
K,M : PMenu;

procedure MyFirstProc;
begin
K := NewMenu...
PopupMenu1.InsertSubMenu(K,MENU_POSITION)
...
end;

procedure MySecondProc;
begin
M := NewMenu...

// здесь хочу заменить (под)меню K на M
// удаление К и вставка М нежелательна!!!

...
end;

← →
Dodfr (2005-08-04 16:43) [1]

I don"t read russain but babelfish translator help a bit.

If you want to replace a pmenu item by another one just do :

PopupMenu.Item[MENU_POSITION]:=M

This should work.

← →
Muller (2005-08-06 21:50) [2]

нет, не получается

есть только PopupMenu.ItemS, но ему нельзя присваивать

Как заменить подменю на другое? Найти похожие ветки