如何创建一个带下拉菜单的按钮？

Question

就像Delphi工具栏上的Run按钮一样
在这个按钮的右边，附带了一个小箭头按钮，点击小箭头按钮，则出现一个下拉菜单。请问这种按钮怎么做？

Answer 1

用ToolButton在WIN32页:   object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      DropdownMenu = PopupMenu1///主要
      ImageIndex = 0
      Style = tbsDropDown ///主要

Answer 2

我是用Panel自己做的，嘿嘿，我觉得PopMenu太小了
PopMenu可以做的象开始菜单那样吗？