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

[beZ_probleM]

вот код :

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

[Romanzes]

k:=formAddString('бла бла бла__'+(z+a)+chr(10)+'Осталось пунктов__'+p);

Как ты умудряешься числа (z и a) использовать в качестве строковых переменных? О_о

[Piligrim]

И как ты умудряешься отслеживать нажатия клавиш на форме? Их там НЕТ.

[beZ_probleM]

от блин... ето получаетсо шо на форме токо команды а на канве клавишы?.... а на канву можно добавлять команды? оО

Это ж ппц... мне надо шоб на форме при нажатии клавиш выполнялись действия!=(

[Piligrim]

на канве можно и команды и клавиши. а вот на форме только команды.

[beZ_probleM]

блин а в чистой яве можно на форме отлавливать нажатия клавиш?

[Piligrim]

НЕТ. У формы нет метода keyPressed.
А тебе зачем это вообще? Может есть другой способ?

[beZ_probleM]

ладно на НЕТ и суда нет... будем както по другому строить