Игра Пинг-понг

[Александр_1992]

Сделал игру пинг-понг , но что-то не вышло с игрой то глючит,то мяч застревает к ракетке.Может кто-то исправить эту ошибку.

[PaHaNjkee]

Признайся, ведь не ты сделал эту игру.. даже свои же ошибки исправить не можешь.

[Александр_1992]

Это я сделал ,делая по инструкциям.

[PaHaNjkee]

В

procedure TForm1.Timer2Timer(Sender: TObject);

Убирай shar; и вроде работает нормально

[XE5]

Поправка. Shar нужно убрать в процедуре Timer1Timer. Данная процедура обращением к процедуре Shar заставляла шарик войти в ракетку. И вот тут эта же процедура начинала раз в 10 миллисекунд менять направление шарика, так как он находился внутри ракетки. Шарик начинало колбасить.
P.S. Чтоб порадовать глаз, и поберечь нервы, прописываем в FormCreate DoubleBuffered := true;
Так же у Shape3 меняем Anchors c akLent на akRight. При изменении размеров формы правая ракетка перестаёт "гулять" по оси X. По самому коду советую использовать один таймер а не три.