Вниз  MIDlet Pascal
<< 1 ... 19 20 21 22 23 ... 160 >>
- 7.04.2012 / 19:22
#156248
HoldFast
  Пользователь
HoldFast 
Сейчас: Offline
MoonDX9, юзай юниты и процедуры
__________________
 Да, детка, я - Король Ящериц!!!
- 8.04.2012 / 19:18
#156419
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Мучаюсь уже целый день.
Некорректная обработка клавиш.Помогите плиз.
  1. if KeyToAction(getkeyClicked) > GA_DOWN then  а := а + 30;
По идеи должно обрабатывать клавишу "8", но почему то обработка идет на "1","5" и "3" :-(
- 8.04.2012 / 19:26
#156421
ScRoLiS
  Пользователь
ScRoLiS 
Сейчас: Offline
KeyToAction(getkeyClicked) > GA_DOWN
А может надо KeyToAction(getkeyClicked) = GA_DOWN?
__________________
 Чпок... Добрый вечер!
- 8.04.2012 / 19:37
#156424
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
ScRoLiS, Все равно
- 8.04.2012 / 21:50
#156433
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Блиин.
Что же это.
  1. if KeyToAction(getkeyClicked) = GA_DOWN then menu := menu +30;
  2.  
  3. if KeyToAction(getkeyClicked) = GA_UP then menu := menu -30;
Обрабатывает только одну клавишу.Помогите кто знает этот язык :-(
- 8.04.2012 / 22:02
#156438
Night_Death
  Пользователь
Night_Death 
Сейчас: Offline
FlyMove, всмысле только одну клавишу?
- 8.04.2012 / 22:04
#156440
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Night_Death, Вот я написал код(см.выше) а выполняется только
  1. if KeyToAction(getkeyClicked) = GA_DOWN then menu := menu +30;
Вторую клавишу какбудто не видит :-(
- 8.04.2012 / 22:48
#156445
Night_Death
  Пользователь
Night_Death 
Сейчас: Offline
FlyMove, т.е. когда вверх жмешь, то ничего не происходит?
да как бы по двум строкам кода, которые ты дал вроде нормально все, должно работать, так что не знаю
- 9.04.2012 / 10:59
#156461
nexmean
  Пользователь
nexmean 
Сейчас: Offline
MoonDX9, через тело программы
- 9.04.2012 / 11:45
#156463
FlyMove
  Пользователь
FlyMove 
Сейчас: Offline
Night_Death, Да я и заного пробывал писать
  1. var
  2.  
  3. m: integer;
  4.  
  5. begin
  6.  
  7. while not(m >500) do
  8.  
  9. begin
  10.  
  11.     DrawImage(LoadImage('/icon.png'),100,m);
  12.  
  13.     if KeyToAction(getkeyClicked) = GA_UP then m := m +5;
  14.  
  15.     if KeyToAction(getkeyClicked)=GA_DOWN then m := m - 30;
  16.  
  17.     delay(50);
  18.  
  19.     repaint;
  20.  
  21.     end;
  22.  
  23. end.
все равно только одну клавишу :-(
<< 1 ... 19 20 21 22 23 ... 160 >>
Наверх  Всего сообщений: 1594
Фильтровать сообщения
Поиск по теме
Файлы топика (72)