BCB 實作可移動工具列式選單：三種方法完整比較

方法一：CoolBar + ToolBar + ToolButton (下拉選單)

• 放置 CoolBar，其上放 ToolBar，設定 ShowCaptions=True、Flat=True。
• 加入 ToolButton，關聯 PopupMenu，設定 Style=tbsDropDown。
• 缺點：選單由按鈕旁小三角觸發，非標準選單列行為。

方法二：CoolBar + 兩個 ToolBar + SpeedButton (彈出式選單)

1. 放置 CoolBar，其上放兩個 ToolBar。
2. 在第二個 ToolBar 放 SpeedButton，設定 Flat=True、Caption="檔案"。
3. 加入 PopupMenu，項目為「開啟」、「結束」。
4. SpeedButton 的 OnClick 事件彈出選單：

void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
    TPoint Pos;
    TSpeedButton *Btn = (TSpeedButton*)Sender;
    Pos = Btn->ClientToScreen(Point(0, 0));
    Pos.y += Btn->Height;
    PopupMenu1->Popup(Pos.x, Pos.y);
}

方法三：ControlBar + ToolBar + MainMenu (無程式碼，純設計時設定)

1. 放置 TControlBar，其上放 TToolBar。
2. 在 TToolBar 加入按鈕（對應選單項目數）。
3. 加入 TMainMenu 設計選單結構。
4. 清除表單 Menu 屬性。
5. 設定 TToolBar 屬性：
   ShowCaption=True, DragKind=dkDock, DragMode=dmAutomatic, Flat=True, EdgeBorder=無
6. 設定每個按鈕屬性：
   Grouped=True, AutoSize=True, MenuItem=對應選單項

此法最簡潔，且支援拖曳移動工具列位置。