Здраствуйте Уважаемые эксперты. Помогите написать одну вещь. А именно:
У меня на форме есть два компонента TImage - Image1, Image2.
Они двигаются по диагонали. Я хочу сделать так, чтобы при столкновении они друг от друга отскакивали. Как они отскакивают я уже написал. Работает нормально. Но со столкновением не могу разобраться. Очень долго сидел, но зачастую добивался только того, что они когда уже пролетят друг через друга срабатывает действие.
Я прошу помочь прописать именно момент столкновения. Как в сравненнии изобразить все это, а именно каждую ситуацию столкновения, сверху снизу, слева справа, не зависимо от того толи то Image1 задела Image2 или наоборот.
Для того чтобы это прописать нужно знать размеры компонентов.
У обоих компонентов:
Width=33;
Height=33;

Вот мои наработки, но это вовсе не рабочий вариант. Хотя вроде бы некоторые ситуции предусмотрел.
if (((image1.left+33>=image2.left) and (image1.left+40<=image2.left))or ((image2.left+33>=image1.left) and (image2.left+40<=image1.left)) ) And (((image1.top+50>=image2.top) and (image1.top+80<=image2.top)) or ((image2.top>=image1.top+50) and (image2.top+80<=image1.top))) then
...
Конечно я мог ошибиться в самой логике. Поэтому прошу вас помочь доработать код.
Заранее благодарен.