потребовалось добавить вторую кнопку в дополнение к добавленной ранее. Казалось бы, ничего сложного- делай, как первую. Сделал, вторая кнопка видна, но на её нажатие реакции нет. Отключил первую- реакция на вторую появилась.
Как сделать, чтобы вторая кнопка нормально обрабатывалась?
![Изображение](http://132.r.photoshare.ru/01327/00ca8fd73bc14425d08de6992cc658371e2aa137.jpg)
Ctrl+F4 на кнопку 1: 'M_MNPLAN::IRMNPLAN.WMNEDIT.SCMNEDIT.M_MNPLAN::IMNPLANEDIT.SCMNPLAN.
M_MNPLAN::IRSPMNPLAN.SCRMNPLAN.cmButSP2'
Ctrl+F4 на кнопку 2: 'M_MNPLAN::IRMNPLAN.WMNEDIT.SCMNEDIT.M_MNPLAN::IMNPLANEDIT.SCMNPLAN.
M_MNPLAN::IRSPMNPLAN.SCRMNPLAN.cmButSP1'
Обработка такая:
Код: Выделить всё
#component "M_MNPLAN"
const
cmButSP1=55591;
cmButSP2=55593;
end;
alter interface IRSPMNPLAN;
var lButSP1, lButSP2: longint;
..
overload Function InitVidWindow : Boolean; end;
Function InitVidWindow : Boolean;
{
if inherited::InitVidWindow = true and PWORKTYPE = 17 then
{
if cfsSetCurrentContainer(cfsGetCurrentContainerSelf) = cfOk then
{
if cfsCreateObject ('Button','SCRMNPLAN','cmButSP1',true, lButSP1) = cfOk then
{
cfsCreateObject ('Button','SCRMNPLAN','cmButSP1',false,lButSP1)
cfsSetProp(lButSP1, cfpTitle, 'Загрузить продолжительность рабочих дней');
cfsSetProp(lButSP1,'Command', cmButSP1);
....
}
if cfsCreateObject ('Button','SCRMNPLAN','cmButSP2',true, lButSP2) = cfOk then
{
cfsCreateObject ('Button','SCRMNPLAN','cmButSP2',false,lButSP2)
cfsSetProp(lButSP2, cfpTitle, 'Передать данные в табель');
cfsSetProp(lButSP2,'Command', cmButSP2);
...
}
}
InitVidWindow:= true;
}
}
Handleevent //Главное окно
{
cmButSP1: {message('Button1');}
cmButSP2: {message('Button2');}
}
end;
end.