Tipsその他TDockTabSetの使い方TDockTabSetの使い方を説明します。新しいVCLフォームアプリケーションを作成します。Form1にTDockTabSetを配置します。DockTabSet1のAlignを「alTop」に設定します。タブに登録するためのフォームを2つ作成します。作成したForm2とForm3のDragKindプロパティを「dkDock」にします。Form2とForm3のDragModeプロパティを「dmAutomatic」にします。Form1のOnShowイベントを記述します。DockTabSet1->ShowDockClient(Form2);}以上で完了です。実行すると、Form2とForm3の表示をTDockTabSetで切り替えることができます。タブの向きタブの表示する方向はTabPositionプロパティで設定します。DockTabSet1のAlignを「alLeft」に設定します。DockTabSet1のTabPositionを「tpLeft」に設定します。ドラッグアンドドックと連携するForm1にTPanelを追加します。Panel1のAlignを「alLeft」にします。Panel1のDockSiteを「true」にします。DockTabSet1のDestinationDockSiteを「Panel1」にします。Form2のタイトル部分にピンが表示されるようになりました。ピンをクリックすると、Form2がPanel1にドッキングします。フォームがないときは非表示にするタブやパネルに表示するフォームがないときは、非表示にするようにします。Form1にTSplitterを配置します。Splitter1のAlignを「alLeft」にします。TMemoを配置します。Form1にMemo1のAlignを「alClient」にします。パネルにドッキングしているフォームがなくなると、パネルを非表示にするようにします。Panel1のOnUnDockイベントに次のコードを記述します。}}パネルにフォームをドッキングするとき、パネルを表示するようにします。Panel1のOnDockDropイベントに次のコードを記述します。Panel1->Width;}タブがなくなったとき、DockTabSet1を非表示にするようにします。DockTabSet1のOnTabRemovedイベントに次のコードを記述します。0;}タブが追加されたとき、DockTabSet1を表示するようにします。DockTabSet1のOnDockDropイベントに次のコードを記述します。参考にしたページです。加筆バグ報告・問い合わせは山本(yamamoto@gesource.jp)までお願いします。