delphi - 如何使用 Delphi 制作 Rocketdock / OSX 风格的启动栏

Question

我想制作一个带有图标的工具栏，当您将鼠标悬停在它们上方时会变得更大。我不介意重新发明轮子，但如果有人能提出一个好的建议：

1. 图像格式（不确定位图是否可以在这里工作，也不确定如何处理矢量）
2. 现有控制（付费或免费，只要我可以在封闭源应用程序中使用它）
3. 容器类（TPanel 够用吗？）

Answer 1

我个人还没有使用过它，但也许看看 TMS TAdvSmoothDock 而不是重新发明轮子..？

http://www.tmssoftware.com/site/advsmoothdock.asp

Answer 2

在 delphi.about.com 网站上有一些示例代码可以做到这一点。

下面的链接显示了代码以及运行时扩展坞的示例图像。

http://delphi.about.com/od/fullcodeprojects/a/mac-doc-launch.htm

我不知道代码是否兼容 D2009，但即使不是，代码也不应该那么难提出来。反正我会想。

高温下，

瑞安。