Кнопка со стрелкой

@NIKOLAYY · Регистрация: 22.09.2012

Author24 — интернет-сервис помощи студентам

Не пойму как создать в делфи подобную как на картинке кнопку?
Выпадающий ее список похож на выпадающий ComboBox- список

@NIKOLAYY · 07.12.2013, 10:14 **[ТС]**

Есть конечно ощущение что это кнопка ToolButton с панели ToolBar со стилем tbsDropDown, но там все таки чуть не такая она или я настройками немогу добиться подобного вида...

07.12.2013, 11:52

Очень похоже на обычную кнопку TBitBtn со стилем blGlyphRight (рисунок справа). При нажатии вызывается TPopupMenu.

Delphi

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  pt : TPoint;
begin
  Pt := ClientToScreen(Point(BitBtn1.Left, BitBtn1.Top + BitBtn1.Height));
  PopupMenu1.Popup(Pt.X, Pt.Y);
end;

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
		1
	Кнопка со стрелкой 07.12.2013, 10:07. Показов 3689. Ответов 2 Метки нет (Все метки) Не пойму как создать в делфи подобную как на картинке кнопку? Выпадающий ее список похож на выпадающий ComboBox- список Изображения 0

@NIKOLAYY 843 / 738 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	07.12.2013, 10:14 [ТС]	2
	Есть конечно ощущение что это кнопка ToolButton с панели ToolBar со стилем tbsDropDown, но там все таки чуть не такая она или я настройками немогу добиться подобного вида... 0

	07.12.2013, 11:52

Кнопка со стрелкой

Решение