一个窗口跟随另一个窗口动态改变位置？

Question

问题描述:
窗口A为用户注册窗口，点击窗口中的Btn1按钮将弹出窗口B（省份选择窗口），
我想实现如下效果：
1.弹出的窗口B自动贴在窗口A的右侧。
2.拖到窗口A的时候窗口B自动跟随移动。请高手帮忙！

Answer 1

form2.Left:=form1.Left+form1.Width;

Answer 2

把form2的东西都放入到一个panle里面,要拖动的时候把panle show出来

Answer 3

感觉CSDN的论坛确实越做越垃圾了。。找了半天，居然不知道该如何编辑自己的帖子。
 发表于：2007-08-22 15:15:54 楼主 
问题描述: 
窗口A为用户注册窗口，点击窗口中的Btn1按钮将弹出窗口B（省份选择窗口）， 
我想实现如下效果： 
1.弹出的窗口B自动贴在窗口A的右侧。 
2.拖到窗口A的时候窗口B自动跟随移动。 请高手帮忙！  
 
问题补充：
窗口B的创建是通过点击窗口A中的按钮Btn1触发创建的啊。
其内容是用TF_TreeView生成的省份城市单位树。

Answer 4

procedure WMMOVE(var Msg: TMessage); message WM_MOVE;procedure Aform.WMMOVE(var Msg: TMessage);
begin
  Inherited;
  if Bform <> nil then
    begin
      Bform.Left:= Width + Left;
      Bform.Top:=Top;
    end;
end;procedure Aform.btonClick(Sender: TObject);
begin
  if Bform= nil then
 begin
  Bform:= Tform.Create(MainForm);
 end;
 
  Bform.Left:= Width + Left;
  Bform.Top:=Top;
  Bform.Show;
end;

Answer 5

用个面板,单击btn1在半FORM放宽就行了,拿那么麻烦啊

Answer 6

MouseDown中:ReleaseCapture;
Perform($0112, $F012, 0);
form2.Left:= Left + Width;