如何建立一个可随处拖动的工具条?(50分)

iamstupidboy · 2002-03-25

在默认情况下,这个工具条放在窗口的顶部.
用鼠标拖动它,就可以放在窗口的最左边,最右边或者最下边.
也可以拖放到窗口的中间!(拖到中间的时候它变成一个带有关闭按钮的很小很窄,并带有标题栏的窗口)

就像Autodesk CAD,Office2000,EditPlus里面的一样!

谢谢

bubble · 2002-03-25

demo目录下有一个Docking.
做工具栏用toolbar和coolbar，差不多的道理。
看看便知.

zxb200 · 2002-03-25

設置此工具條的dragkind屬性為bkdock,dragmode屬性為dmautomatic,即可.

iamstupidboy · 2002-03-25

To zxb200:

我照你的做了.默认的情况下,工具条放在窗口的顶端.
不过问题依然有:我能把工具条拖出来,放在窗口的中间,它变成一个小窗口(第一个功能实现了).不过,在我用鼠标把工具条拖到
窗口的最左边,最右边或底部的时候,它并不和当初放在顶端的时候一样,和窗口融合在一起!
我想实现把工具条拖到窗口的左边,右边,和底部,它也能和窗口融合在一起!

iamstupidboy · 2002-03-25

To bubble:
那个demo里的工具条只能拖动出来,不能融合进窗口的左边,右边和底部啊!!!

bubble · 2002-03-25

to iamstupidboy
或者你在窗体左边右边访几个panel，然后docksite:=true;
或者，你为什么不研究研究那个demo弹出来的那几个颜色窗体
是怎么融合的呢？很清楚了。

iamstupidboy · 2002-03-26

To bubble:
我还是不太明白呀,你能给我一段代码吗? 谢谢

jomee · 2002-03-26

找个控件吧。、

wyh919 · 2002-03-26

你可以试一试ActiveBar2.0的ActiveX控件，它是欧洲至今最流行的工具条之一，尽管在
delphi下有一些功能无法实现，但简单的也够用了，还有demos，不过是For VB的，慢慢看
就可以了，可以到http://epro2000.myetang.com下载，其它地方也多得是；

sadj · 2002-03-26

第一：delphi6有控件可以实现和office一样的功能
第二：delphi5下可以安装devExpressbar4.x，有一个十分强大的标题栏控件包，效果和
delphi6差不多，如果要用中文的，你可以自己含化rc文件，用bc32编译成res，然后重新
安装控件包
上面两个都很爽

iamstupidboy · 2002-03-26

To everyone:
好的,我试试那些控件.谢谢

iamstupidboy · 2002-03-26

这个问题我已经用tb2000解决了.谢谢大家的帮忙,谢谢!

如何建立一个可随处拖动的工具条?(50分)

iamstupidboy

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

zxb200

Unregistered / Unconfirmed

iamstupidboy

Unregistered / Unconfirmed

iamstupidboy

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

iamstupidboy

Unregistered / Unconfirmed

jomee

Unregistered / Unconfirmed

wyh919

Unregistered / Unconfirmed

sadj

Unregistered / Unconfirmed

iamstupidboy

Unregistered / Unconfirmed

iamstupidboy

Unregistered / Unconfirmed

Similar threads