菜鸟求救，怎么让托动Form1时Form2也跟着托动？

Question

1、托动Form1的标题栏，托动的同时Form2的位置也随之改变，如何实现？
procedure FormMove(var msg: TWMMOVE);message WM_MOVE;procedure TForm1.FormMove(var msg: TWMMOVE);
begin
  if Assigned(Form2) then
0A    SetWindowPos(Form2.Handle,HWND_TOP,Self.Left,Self.Top,0,0,SWP_NOOWNERZORDER+SWP_NOSIZE);
end;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 1

2、
SetWindowPos(Form2.Handle,HWND_TOP,0,0,0,0,SWP_NOOWNERZORDER+SWP_NOSIZE+SWP_SHOWWINDOW);—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

Answer 2

在1中，如果不需要Form2改变显示层次，可以在SetWindowPos的最后一个参数上再加上 SWP_NOOWNERZORDER—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样，改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————