PopUpMenu из SpeedButton

[Altera]

Привет всем!
Простите, если мой вопрос кому-то покажеться глупым, но вот видели же такой компонент:
При нажатии на часть слева выполняеться событие onClick а при нажатии по правой часте вылезает контекстное меню, как мне сделать из speedButon-а такой же?

[Greblin]

Такое можно сделать не из SpeedButton, а из ToolButton. С палитры Win32 берёшь ToolBar, добавляешь кнопку и в свойстве Style ставишь tbsDropDown

[Altera]

Ну это не совсем то, что мне нужно... Мне надо, что-бы была бы как та на картинке. А эта вообще плоская

[Alter]

У квипа рядом с большой кнопкой есть узкая с треугольником, так они расположены на панели, Широкая кнопка - это BitBtn, а вот с треугольником WinSpy неможет узнать, при наведении на неё необразуется захвата.
Вот способ предложенный мной(http://www.programmersforum.ru/showt...hlight=Popup):

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 SpeedButton1.Down := True;
 PopupMenu1.Popup( SpeedButton1.Left + Left + 2,
                   SpeedButton1.Top + 2*SpeedButton1.Height + Top - 2 );
end;

procedure TForm1.N1Click(Sender: TObject);
begin //собственно реакция нажатия пункта PopupMenu
 SpeedButton1.Down := True;
 {код}
end;

[Черничный]

так это тебе верно народ говорит, это Toolbar! Я такое мутил, это стандартное