1. 程式人生 > >Delphi 工具條按鈕上的下拉菜單

Delphi 工具條按鈕上的下拉菜單

list lba src pop 設計 mage 通過 alt 一個

制作步驟:

1、添加一個 TImageList: ImageList1, 然後載入些圖標;

2、添加兩個 TPopupMenu: PopupMenu1、PopupMenu2, 並分別添加些菜單項;

3、添加一個 TToolBar 控件: ToolBar1, 通過其右鍵菜單 New Button 添加兩個按鈕: ToolButton1、ToolButton2;

4、選擇屬性:

ToolBar1.Images := ImageList1;

ToolButton1.Style := tbsDropDown;

ToolButton2.Style := tbsDropDown;

ToolButton1.DropdownMenu := PopupMenu1;

ToolButton2.DropdownMenu := PopupMenu2;

設計時圖:

技術分享圖片

運行時圖:

技術分享圖片

Delphi 工具條按鈕上的下拉菜單