Delphi：在TCoolBar中設置TMainMenu和TToolBar的樣式

Question

我試圖在Delphi XE3中創建一個應用程序菜單和工具欄，如下所示（從我擁有的程序中）：

通過執行以下操作，我可以復制此外觀的一部分：

1. 創建一個新的VCL Forms應用程序
2. 添加一個TMainMenu並為文件/編輯/等插入模板菜單。
3. 將TCoolBar添加到窗體
4. 將TToolBar添加到TCoolBar
5. 為每個File / Edit / etc添加一個TToolButton到TToolBar 。 並選擇組屬性
6. 從窗體中刪除Menu屬性（因此不會顯示程序菜單）
7. 將每個TToolButton的MenuItem屬性分配給相應的File / Edit / TToolButton
8. 將第二個TToolBar添加到第一個中的TCoolBar

看起來是這樣的：

它有些相似，但是仍然缺少所有樣式元素來修改新應用程序菜單的外觀。

我的問題是，有沒有人知道如何通過第三方組件庫獲得相似的外觀？ 原始開發人員似乎使用了第三方VCL庫。 除了樣式菜單和TCoolBar之外，我還想添加陰影。

我已經嘗試過Raize Components，TMS Advanced Toolbars和Menus，並且正在嘗試DevExpress VCL組件。 他們似乎都沒有提供解決方案，但也許我對他們還不了解，還沒有找到解決方案。

Answer 1

Delphi附帶了一個ActionBands演示，該演示可以向您展示如何使用TActionMainMenuBar （和TActionToolBar ）為菜單獲得“現成的”外觀。 只需在演示中將“ Style菜單更改為“ XP Style ”：

您的其余步驟似乎都已經完成。 有關菜單項和工具欄按鈕上的圖像，請參見結合使用ImageList組件和演示中菜單和工具欄上的TActions 。