Delphi 2005 のVCL.NET のSampleカテゴリにひっそりと TCollapsePanel というコンポーネントが追加されています。今回はこのコンポーネントを利用してみます。


TCollapsePanelをフォームに配置します。


Panel内部にボタンやチェックボックスを置いてみます。


これで、アプリケーションを実行します。起動すると下図のウィンドウが表示されます。


Headerの右側にある「>>」をクリックすると下図の状態に変わります。ヘッダの下のパネルが非表示になります。もう一度Headerをクリックすると、パネルが表示されます。


いったんアプリケーションを終了し、フォーム設計ウィンドウに戻ります。CollapsePanelを2枚おきます。それぞれAlign を alTopにします。


そして、アプリケーションを実行します。

上のほうのHeaderの「>>」ボタンをクリックしてみます。パネルが折りたたまれ、下のCollapsePanelが上に詰まってきます。


下のCollapsePanelも閉じてみました。


sampleにある目立たないコンポーネントですが、便利に使えるコンポーネントではないのでしょうか。