停靠窗体如何实现? ( 积分: 0 )

  • 主题发起人 主题发起人 smyl9989
  • 开始时间 开始时间
S

smyl9989

Unregistered / Unconfirmed
GUEST, unregistred user!
点击主窗体上的按钮,则另一窗体出现,并停靠在主窗体的下面。这怎么实现?
 
点击主窗体上的按钮,则另一窗体出现,并停靠在主窗体的下面。这怎么实现?
 
在窗口停放控件
将一个窗口,面板或者controlbar变成一个可以停放其他窗口的空间
把它的DockSite属性设置为True。
如果使用面板或者controlbar之类的控件,可以把它隐藏在窗体的边上,直到用户需要把东西停放在其上面的时候才显示出来,
但是必须将控件的autosize属性设置为true。
将一个控件变成可停放所需步骤:
把它的DragKing属性设置为dkDock
把它的DragMode属性设置为dmAutomatic

UseDockManager属性与某些控件,例如Tpanel。当它为true时,会导致放到面板上的控件变得与面板形状或者面板上当前可以
利用的空间相一致。
在窗口停放窗口:与上面类似
象你所说的问题,改改就可以了。。就自己想拉。。。呵呵。。
 
放一个Panel, 其DockSite设置为True

frm2 = TForm2.Create(self);
frm2.ManualDock(Panel2, nil, alClient)
 
设为子窗体就可以了,然后甚至可以合并菜单项,像Office一样。
 
接受答案了.
 
后退
顶部