窗体位置的移动

Question

有两种情况要解决：1。form2移动 2.Form1移动
我只能想到两种思路，不知好不好
1.在两个窗体拖拽事件中判断form2相对于form1的位置，如果有变化，则移回form2
2.使form2不能移动；如果form1位置变化，则移动form2保持位置固定.(使form2不能移动，可以重画标题栏，可能还有在标题栏上截获消息的方法。但我没做过。

Answer 1

我建议你把鼠标控制在form2内

Answer 2

Form1.formstyle:=fsMDIform;
Form2.formstyle:=fsMDIChild;在form1的pravite里面
  procedure WMNCHitTest(var M: TWMNCHitTest);message wm_NCHitTest;implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
end;
end.just try it!