| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как заменить подменю на другое? [Delphi, Windows]
Muller © (2005-08-04 16:07:00)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;
Muller (2005-08-06 21:50:00) [1]нет, не получается
есть только PopupMenu.ItemS, но ему нельзя присваивать
Dodfr (2005-08-04 16:43:00) [2]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.
| |
