Код: Выделить всё
Назначение
Создать новое меню.
Описание
function CreateMenu : longInt;
Возвращаемое значение
Идентификатор созданного меню.
В случае, если меню не создалось, возбуждается исключение ExVip.ExLoadMenuError
Код: Выделить всё
lMenu := CreateMenu ; // возвращает почему-то всегда ноль - в доках не сказано, считать ли ноль ошибкой
for (i := 0; i < count(ArrMenuItemName); i++)
{
var l : longint
l := LoadMenuEx (ArrMenuItemName[i], true, false)
if (l != 0) // в доках для LoadMenuEx ясно сказано, что 0 это ошибка
{
ConcatMenu(lMenu, l) ; // именно в этом месте я получаю рантайм при многократном вызове контекстного меню
}
}
AddMenuItem(lMenu,'separator',666);
AddMenuItem(lMenu,'Новый пункт меню', cmNEW);
PutHotCommand(RunLoadMenu(lMenu));
Может кто-нибудь прояснит ситуацию?