вот код :
p:=8;
k:=formAddString('бла бла бла__'+(z+a)+chr(10)+'Осталось пунктов__'+p);
repeat
i:=getKeyClicked;
tmp:=getClickedCommand;
if i<>KE_NONE then begin
if i=KE_KEY1 then
if p>0 then
begin
a:=a+1;
p:=p-1;
end;
if i=KE_KEY3 then
if a>0 then
begin
a:=a-1;
p:=p+1;
end;
formRemove(k);
k:=formAddString('бла бла бла__'+(z+a)+chr(10)+'Осталось пунктов__'+p);
end;
if tmp=To_menu then begin ok:=true; menu:=true; end;
if tmp=next then
begin
ok:=true;
z:=z+a;
end;
delay(100);
until ok=true;
Почему при нажатии клавишы 1 или 3 не происходит (наверно) ничего?
Должно вить прибавлятсо значение к переменной "а"...
или
getKeyClicked и
getClickedCommand нельзя использовать вместе?