请问有没有办法,使panel控件,可以在窗口中粘接停靠功能吗?

解决方案 »

  1.   

    Panel的Align不行吗,如:Panel1.Align:=alTop;
      

  2.   

    什么意思?是Panel上可以停靠其他窗体吗?设置DockSite为True就可以了
      

  3.   

    我想应该是 xxmmmx(踢踏)说的意思吧。
    设置DockSite为True
      

  4.   

    没听明白,再说明白点吧,是不是像D7那样的样的停靠窗口哟,还是像Winnap的那种窗口呢?
      

  5.   

    我想实现在mdi父窗口中实现子窗口停靠,如现在有一个父窗口(mainwindow),子窗品form1,form2,form3,form4,子窗品的排列图如下:
    -----------------------------------------------------------
    |    form1    |                                           |
    |--------------                                           |
    |    form2    |                  form4                    |
    |--------------                                           |
    |    form3    |                                           |
    |----------------------------------------------------------
    上面的图意是,最外框是父窗口,form1,form2,form3,和form4的停靠位置如上图,
    请问如何实现呢?
      

  6.   

    //---------------------------------------------------
    //停靠的实现
    procedure TFrmDraw.PanelDockUnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    begin
      PanelDock.Width:=5;
    end;procedure TFrmDraw.FormShow(Sender: TObject);
    begin
      frmTool:=TFrmTool.Create(Application);
      FrmTool.ManualDock(panelDock); //停靠
    end;procedure TFrmDraw.PanelDockDockOver(Sender: TObject; Source: TDragDockObject;
      X, Y: Integer; State: TDragState; var Accept: Boolean);
    begin
        accept:=(source.Control=FrmTool);
    end;procedure TFrmDraw.PanelDockDockDrop(Sender: TObject; Source: TDragDockObject;
      X, Y: Integer);
    begin
      source.Control.Width:=112;
      PanelDock.Width:=source.Control.Width;
    end;//还有设panel和frmtool的相关属性,这个不用说了吧。