Скачать: CL | DM;

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

← →
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);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.027 c