Движущиеся обьекты Опции

[Spinne]

Задали мне такую интересную задачку: нарисовать некий обьект, который двигается по экрану с помощью кнопок клавиатуры и еще одну прогу для движения обьекта мышкой. Если чесно, то мне в голову ничего не приходит. ООООчень надеюсь на помощь.

[pascal65536]

ReadKey вернёт код нажатой клавиши.
Напиши простую программку, чтобы узнать какая клавиша соответствует какой цифре.
dX и dY - Это приращение координаты X и Y объекта

Код

 KeyChar := ReadKey;
 If Ord(KeyChar)=0 Then
    Begin
      KeyChar := ReadKey;
      case Ord(KeyChar) of
        71: Begin dX := -1;  dY := -1;  End;
        72:       dY := -1;
        73: Begin dX :=  1;  dY := -1;  End;
        75:       dX := -1;
        77:       dX :=  1;
        79: Begin dX := -1;  dY :=  1;  End;
        80:       dY :=  1;
        81: Begin dX :=  1;  dY :=  1;  End;
      end;
    End;

Сообщение отредактировано: volvo - 18.12.2004 2:54