如何让两个窗体就象一个窗体一样，一个移动另一个也跟着移动

Question

我的程序有两个窗体，其中有一个为主窗体。
设置form1.FormStyle :=fsStayOnTop;
    form2.FormStyle :=fsStayOnTop;
单击一下form2后以上语句就不起作用了。

Answer 1

Windows.SetParent(Form2.Handle,Form1.Handle);

Answer 2

ysai(赛赛) 正确！给50分！

Answer 3

Windows.SetParent(Form2.Handle,Form1.Handle);
这个是干什么用的？

Answer 4

我刚才实验了一段代码，好象可以这样的
做两个form,form1上一个button，
procedure TForm1.Button1Click(Sender: TObject);
begin
  form2.ShowModal ;
end;
form2上放一个timer，interval 设置短些，越小的话，效果越好，
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  form1.Top := form2.Top;
  form1.Left := form2.Left ;
end;
大概就是这个样子了，我这里代码调试通过了，更深的应用可以自己去扩展了