我创建两个窗口:form1,form2.
怎样在启动的时候 用程序 将form2停泊在form1上?

解决方案 »

  1.   

    在form1上放一个Panel,然后
    在form1的onshow事件中写
    Var
      DockPos : TRect;
    begin
      {注:停靠的窗体要比pnlUIfrm宽加8高加26}
        DockPos.Top := 0;
        DockPos.Left := 0;
        DockPos.Right := panel1.Width;
        DockPos.Bottom := panel1.Height;
        form2.Dock(panel1 , DockPos);
        form2.Show;
      
    end;
      

  2.   

    hao de 
    shou chang
      

  3.   

    procedure TForm2.FormShow(Sender: TObject);
    var
      rect:trect;
    begin
      rect:=form1.ClientRect;
      form2.Dock(form1,rect);
    end;