Манипуляции с формой

[Claster]

Всем доброго времени суток..............скажите пожалуйста уважаемые мастера как сделать так, что бы 2 форма при перемещении ее курсором, не выходила за пределы 1 формы?

[evg_m]

form2.parent:=form1;

[Claster]

АГА спасибо прикольно получилось.......это все замечательно..........но один нюанс, возможно ли что бы при перемещении 2 формы, когда ее края доходят до 1 формы, что бы 2 форма останавливалась и упиралась так сказать в края формы 1

[evg_m]

справка и другие материалы по темам
form2.OnMove Left, width
Screentoclient
if form2.left + form2.width > form1.width

[Claster]

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

form2.parent:=form1;

Почему при использовании такого метода 2 форма никак не реагирует на

AlphaBlend:=true;
AlphaBlendValue:=200;

Может есть другой способ сделать ее полупрозрачной?

[Claster]

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

справка и другие материалы по темам
form2.OnMove Left, width
Screentoclient
if form2.left + form2.width > form1.width

Буду очень благодарен если вы выложите примерчик...для меня это сложно, я только учусь...за ранее благодарен

[Claster]

Код для левого края и верха, как сделать для правого края и низа?

procedure TForm2.WMMoving(var Msg: TWMMoving);
var
workArea: TRect;
begin
with Msg.DragRect^ do
begin
if Form2.Left < Form1.Left then
OffsetRect(Msg.DragRect^, Form1.Left - Left, 0) ;
if Form2.Top < Form1.Top then
OffsetRect(Msg.DragRect^, 0, Form1.Top - Top) ;
end;
inherited;
end;