Проверить

← →
magicworld (2007-03-23 01:36) [0]

Если Image во всю форму. Есть button на нем. Помогите написать функцию, возвращающая true если button входит в Image и false в противном случае. Проверять необходимо используя свойства left и top, только вот как?

← →
Сергей М. © (2007-03-23 09:37) [1]

var
dst, ir, br: TRect;
..
with Image do
ir := Rect(Left, Top, Left+Width-1, Top+Height-1);
with Button do
br := Rect(Left, Top, Left+Width-1, Top+Height-1);
Result := UnionRect(dst, ir, br);

Проверить Найти похожие ветки