"ArrowButton" (Delphi) сделать на базе TButton.

Такая кнопка есть в Delphi 2010 и выше, свойство Style:= SplitButton и DropDownMenu. Но данная фича новых Delphi работает только в Vista и Win7. Так что не подходит.

Также, подобные кнопки есть в различных наборах компонентов, например в JVCL кнопка так и называется JvArrowButton.

И во многих других наборах компонентов они есть. Но все они сделаны на базе SpeedButton, а мне нужно на базе TButton, так что все эти готовые кнопки тоже отпадают.

Мне нужно сделать подобную кнопку, на базе TButton. Скрин, как все это выглядит вышлю по запросу на почту. Суть в том, что нажимаешь на основную часть, срабатывает стандартный onClick, на правую выделенную часть со стрелочкой, то вылезает PopupMenu (который указывается в свойстве DropDownMenu кнопки).

Также нужно предусмотреть возможность менять ширину этой правой части со стрелочкой (для подгонки под интерфейс).

Вот и все.

Жду предложений.