窗体弹出后边缘如何自动衔接

在窗体FORM_1中点击一按钮,SHOW出另一个窗体FORM_2,然后让FORM_2的窗体右边缘靠紧FROM_1的左边缘,自动衔接上,
如何实现呢?

解决方案 »

  1.   

    createform2;
    form2.Left := Form1.Left - Form2.Width;
    form2.top := form1.Top;Form2.show;
      

  2.   

    如果你想form1移动的时候.form2也跟着移动，可以发消息实现.form1移动的时候,就给form2发消息,form2的消息响应里面去控制自己的位置.
      

  3.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Form2.Left:=Form1.Left;
      Form2.Show;
    end;{加上下面这个,Form2就只能呆在Form1的左边缘跑不掉了}
    procedure TForm1.FormPaint(Sender: TObject);
    begin
      Form2.Left:=Form1.Left;
    end;
      

  4.   

    发消息把,在form2上建一消息函数,创建form2和form1移动时,从form1上发消息给form2