Форма и размеры

[Claster]

Всем доброго времени суток.....подскажите начинающим людям...........как сделать что бы если я начинаю уменьшать размеры 1 формы и ее края достигают краев формы 2, то первую форму уже нельзя уменьшать(ширину или высоту)

[RomiKon]

Если вы говорите о Delphi то: У формы есть такой обработчик события Onresize, который вызывается при изменении размеров формы. Код этого обработчика можно сделать следующий:
1)проверить на пересечение Rect формы1 и формы2
2)если пересеклись то шаг 3 иначе 4
3)присваиваем свойствам формы width и height значение глобальных переменых width и height
4)присваиваем глобальным переменым width и heigth значение свойств формы

[Claster]

1)проверить на пересечение Rect формы1 и формы2
2)если пересеклись то шаг 3 иначе 4
как реализовать эти 2 пункта? программно

[phomm]

if ((form1.boundsrect.left in [form2.boundsrect.left..form2.boundsrect.right]) or
(form1.boundsrect.right in [form2.boundsrect.left..form2.boundsrect.right]))
and  ((form1.boundsrect.top in [form2.boundsrect.top..form2.boundsrect.bottom]) or
(form1.boundsrect.bottom in [form2.boundsrect.top..form2.boundsrect.bottom]))
  then dolimitjob()
  else dosetjob()

как-то так ))

[Claster]

Сообщение от phomm

if ((form1.boundsrect.left in [form2.boundsrect.left..form2.boundsrect.right]) or
(form1.boundsrect.right in [form2.boundsrect.left..form2.boundsrect.right]))
and  ((form1.boundsrect.top in [form2.boundsrect.top..form2.boundsrect.bottom]) or
(form1.boundsrect.bottom in [form2.boundsrect.top..form2.boundsrect.bottom]))
  then dolimitjob()
  else dosetjob()

как-то так ))

что такое then dolimitjob() else dosetjob()

[phomm]

ну насмешил )) это ты должен написать, это процедуры, просто я их так хитро обозвал , в них заложен функционал

Сообщение от Claster

1)проверить на пересечение Rect формы1 и формы2
2)если пересеклись то шаг 3 иначе 4