さすがボーランド！！あまりの高機能ぶりに天ぱる俺。Delphi：DockSiteってなんぞや？

質問

Docksite？つづり違うかも。はうれしい機能のひとつなんですが、被ドッキングコントロールの側でドッキングするコントロールを選ぶことはできるのでしょうか？
また、パネル１にパネル２をドッキングすると、ドッキングしたあとにパネル２の右上に×印がでてユーザーがパネル２を消すこともできるようになってしまいます。それって防げないものでしょうか？基本的なこと、つまりドッキングされたときのアクション、離したときのアクション、を何をどこに記述すればいいのかわかりません。
離した直後にコントロールの位置、大きさなども指定することもできるのでしょうけど、コントロールを消したあと、再表示したあとドッキングされた状態か否かを選択することもできるのでしょうか？お願いします。

回答No.1

crosis · ベストアンサー

私もドッキングについては、苦手なので何とも言えないので私のやってる方法ですが、、、

『パネル１にパネル２をドッキング』の例で書きますと、、、

>被ドッキングコントロールの側でドッキングするコントロールを選ぶことはできるのでしょうか？
　被ドッキングコントロールというのを、例でパネル１と解釈すると、、
パネル１のOnDockOverで、
Accept := Source.Control.Name <> 'Panel2';
としておけば、Panel2のドッキングは防げます。
もっと細かく制御したければ、if文で、if (Source.Control.Name = '') then ～ else if ～
としていけば、ドッキングさせるコントロールは制御できます。

>ドッキングしたあとにパネル２の右上に×印
これは、、、ドッキングする（？？）えっと、、、説明しにくい。。。DockSiteがtrueになっている側。つまり、例では、パネル１のUseDockManagerをfalseに設定すれば無くなります。ただし、その場合、ドッキングするフォームの状態をドッキング後にどうするかを自分でソースを書く必要があります。その場合、パネル２側のOnEndDockに私は書いてます。ドッキングしているかどうかは、target = nil かどうかで判別できます。

>コントロールを消したあと、再表示したあとドッキングされた状態か否かを選択
なにを言いたいのかよく分からないのですが、ドッキングされているかどうかについては、ManualFloatとManualDockでコントロールできます。
浮かせたければ、ManualDock(nil)とか、ManualFloat(Rect(0,0,100,100))とか、、、ドッキング状態にしたければ、ManulDock('Panel1')とかってします。

こんなんでいいでしょうか。私もあまり得意ではないので、、、

お礼

回答ありがとうございます。詳しい解説参考になります。