| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проверить

magicworld ©   (2007-03-23 01:36:00) 

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

---

Сергей М.   (2007-03-23 09:37:00) [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);

---

Наверх