【Delphi】ToolBar 的 DropDownButton 使用

參考資料 ----
http://delphi.about.com/od/delphitips2009/qt/toolbutton-drop.htm



在 Form 上放一個 PopupMenu

在 PopupMenu 上按滑鼠右鍵，選 Menu Designer，建立 3 個 menu item - item1、item2、item3。


ToolBar(在 Win32 頁籤) 可放置各式按鈕
在 Form 上放一個 ToolBar
→ 移動滑鼠至 ToolBar，按滑鼠右鍵，選 NewButton
→ 產生新按鈕後，確認按鈕是被選取的狀態，再到 Object Inspector 找到 Style 屬性，變更屬性為 tbsDropDown
→ 變更 DropdownMenu 屬性，指到剛放在 Form 上的 PopupMenu，如此當程式執行時，點按鈕的向下箭頭時，就會顯示 item1、item2、item3 選項。

如果要讓使用者按按鈕的任一處，都會彈跳出選單，而不侷限在向下箭頭呢? 只要在該按鈕的 OnClick event 寫入：

ToolButton1.CheckMenuDropdown;