ドッキングさせない

(Delphi 4 以降) 調子に乗ってドッキングを使いまくっていると、例えばページコントロールにドッキングさせるフォームがツールバーに収まってしまったりします。これはこれでいいんですが、やっぱりかっこ悪いのでどうにかしたくなります。
子ウィンドウをドラッグしてドックサイト上に合わせた時、ドックサイト側では GetSiteInfoイベントが発行されます。これを使うとドッキングを制御することができます。
以下のサンプルは ControlBar上に TForm型のオブジェクトが来た場合はドッキングをさせません。

■ ドッキングを抑制する例

procedure TForm1.ControlBar1GetSiteInfo(Sender: TObject; DockClient: TControl; var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean); begin if DockClient is TForm then begin //ドッキングしちゃだめ CanDock := False; end; end;