Запретить выходить за пределы родителя

[denprox]

Доброго времени суток! Наткнулся на тему Как определить пересекаются ли два контрола или нет? и возник вопрос, как сделать обратное ? Т.е. к примеру есть два объекта, Родительский и потомок, как узнать, вышел потомок за пределы родителя или нет ? 

[Winexcel]

Можно просто проверить у потомка координаты, если есть отрицательная - значит вышел.
Position.X

Position.Y

[denprox]

Это если влево или вверх пытаться вывести потомок, если вправо или вниз, то X Y остаются положительными 

[Maximus]

Вы же знаете длину и ширину своего "потомка", учитывайте её при проверке и всё.

Изменено 31 марта, 2017 пользователем Maximus

[denprox]

Есть еще такое решение: Если поместить объект в TSelection, который в свою очередь потомок необходимого родителя, то автоматически будут созданы границы, за которые объект(потомок) нельзя вывести. 

[dnekrasov]

EqualRect(Control1.BoundsRect.Intersect(Control2.BoundsRect), Control2.BoundsRect)

Если True, то Control2 не вышел за пределы Control1, иначе - вышел