Интерфейс с парамером
Добавлено: 19 авг 2009, 17:26
Интерфейс написала впервые, модально и немодально работает, но при вызове из формы параметр не передается, все время 0. Что не так?
Interface SelectOtvet41;
var
vOtvet:Integer;
Parameters vOtvet;
create view;
handleEvent
cmInit: {
vOtvet:=0;
If (Message ('Выбор столика?',YesNo)=cmYes) vOtvet:=1;
abort;
}
end;
end.
Вызов из формы
описана p_otvet как Integer
.begin
P_otvet:=0;
Runinterface(‘SelectOtvet41’,p_otvet);
End.
Заранее спасибо!
Interface SelectOtvet41;
var
vOtvet:Integer;
Parameters vOtvet;
create view;
handleEvent
cmInit: {
vOtvet:=0;
If (Message ('Выбор столика?',YesNo)=cmYes) vOtvet:=1;
abort;
}
end;
end.
Вызов из формы
описана p_otvet как Integer
.begin
P_otvet:=0;
Runinterface(‘SelectOtvet41’,p_otvet);
End.
Заранее спасибо!