Скачать: CL | DM;

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

← →
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, но ему нельзя присваивать

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c