TButtonのStyleプロパティをbsSplitButtonにすると、ドロップダウンメニューのあるVistaスタイルのスプリットボタンになります。
フォームにTButtonとTPopupMenuを配置します。
Button1のStyleプロパティをbsSplitButtonに変更します。
ボタンがスプリットボタンに変わりました。
Button1のDropDownMenuプロパティにドロップダウン矢印が押されたときに表示するPopupMenuを設定します。
「F9」キーを押してプログラムを実行します。
ドロップダウン矢印をクリックすると、ポップアップメニューが表示されました。
スタイルを適用して実行したところ。
ドロップダウン矢印をクリックしたとき、OnDropDownClickイベントが発生します。
OnDropDownClickイベントを記述することで、動作をカスタマイズできます。
void __fastcall TForm1::Button1DropDownClick(TObject *Sender)
{
ShowMessage("Button1DropDownClick");
}