. : Пушечные ядра : .

Исходник программы, показывающей пример рисования пушки, которой можно прицелиться, перемещать, стрелять и регулировать пороховой заряд для залпа.

Здесь используется простейшая форма логики перетаскивания для перемещения цели. Хитрость заключается в том, чтобы установить для свойства DragMode значение dmAutomatic для объекта, который вы хотите перетащить, и определить выходы DragOver и DragDrop для всего, на что может быть сброшен перетаскиваемый объект. DragOver должен установить флаг, говорящий: «Да, ничего страшного, если вы хотите бросить эту вещь сюда», а задача DragDrop состоит в том, чтобы фактически изменить местоположение объекта на новое место.

Еще одна важная деталь - определить, поразило ли пушечное ядро нашу цель. «Обнаружение столкновений» - распространенная (и сложная) проблема в большинстве приложений с анимированной графикой. Я еще не изучал это, поэтому просто сделал быструю и грязную реализацию, проверяющую, меньше ли расстояние от центра пушечного ядра, чем его радиус от левого или верхнего края цели после каждого движения. Проблема в том, что для малых углов горизонтальное движение может переносить ядро с одной стороны мишени на другую с шагом в один цикл, поэтому мы никогда не узнаем, что прошли прямо через него. Но эту проблему мы уже оставим для самостоятельного решения.