forum.boolean.name - отслежывание нажатий клавиш

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - отслежывание нажатий клавиш (http://forum.boolean.name/showthread.php?t=7206)

beZ_probleM

17.10.2008 16:44

отслежывание нажатий клавиш

вот код :

Код:

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 нельзя использовать вместе? :4to:

Romanzes

17.10.2008 17:55