如何实现Delphi6 IDE中工具条的无矩形框出坞(UnDock)操作呢? (100分)

  • 主题发起人 主题发起人 HappyEveryDayR
  • 开始时间 开始时间
H

HappyEveryDayR

Unregistered / Unconfirmed
GUEST, unregistred user!
由于 Delphi6 的封装,当我们实现工具栏的停靠编程时是很方便的。
在窗体上放一个ControlBar控件,并设它的DockSite为True,然后再放一个ToolBar,并
设它的DragKind为dkDock,DragMode为dmAutomatic,即可轻松实现工具条停靠在ControlBar
上的效果。
但是,当我们把该工具条从ControlBar上拉出来时,却发现有一矩形框一直跟着该它,以
表示当前该工具条实际所在的屏幕位置。但是,在 Delphi6 IDE中工具条却不是这样的,它没
有任何矩形框包围,那么我想请问各位大虾,用什么方法可以实现之呢?
 
[:(]怎么没人回答,难道大家对编类似Delphi IDE界面效果的程序不感兴趣吗?
 
who knows? come on!
 
[:)]十分感谢bubble的帮助,那么关于工具栏的无矩形框出坞操作,应该是Delphi从写了
一遍其移动的实现过程,利用现有的工具条控件,可以通过编程达到这个效果吗?
请高手指点!
 
事实上windows组件的所有的默认拖动,
你可以试试看,都是由那个矩形框的.
可以借鉴磁性窗体的写法。
 
后退
顶部