これはDelphi Dockingで可能ですか、カスタムドラッグアンドドロップが必要ですか？

Question

は、以下の画像をご参照ください：

• パネル1とPanel2はドッキング可能です。
• 右側のパネルはドックサイトです。
• panel1とpanel2を1つずつ右のパネルにドラッグすると、デフォルトのドッキングがどのように機能するのか知っています。

私の質問：ドッキングパネルは、その高さを保持し、右側のパネルの全幅を占めるようには私がドッキングプレビュー四角形と、最終的なドッキング四角形をコントロールすることはできますか？言い換えれば、最初のパネルをドッキングするときに、それが独自の高さで右のパネルの上部に位置するスナップインタイプのエフェクトを作成できますか？その後、2番目のパネルがドッキングされると、その下にそれ自身の高さでスナップインされますか？

私はドッキングの代わりに独自のドラッグアンドドロップを使用して、ドラッグアンドドロップスナップを適所に行う必要があると考えます。ドラッグアンドドロップで自分のコードを実行しなければならない優れたターゲットプレビュー矩形機能のために、ドッキングを使いたいと思っていました。ここで

Answer 1

は、あなたの一例である。この

procedure TForm3.ScrollBox1DockDrop(Sender: TObject; Source: TDragDockObject; X, 
    Y: Integer); 
begin 
    //Change the dropped component (source) Align property to alTop to achieve top 
    //alignment of docked control 
    Source.Control.Align := alTop; 
end; 

procedure TForm3.ScrollBox1UnDock(Sender: TObject; Client: TControl; 
    NewTarget: TWinControl; var Allow: Boolean); 
begin 
    //Reset Align property to alNone to revert undocked control to original size 
    //NOTE: Changing Source.DocRect like in OnDockOver event below will also change 
    //original size of the control. So when undocked it will no longer have same 
    //dimensions as it did before docking 

    Client.Align := alNone; 
end; 

//Here we can manipulate the size of DockRect to get better preview of docked component. 
//NOTE: Changing Source.DocRect like in OnDockOver event below will also change 
//original size of the control. So when undocked it will no longer have same 
//dimensions as it did before docking 
procedure TForm3.ScrollBox1DockOver(Sender: TObject; Source: TDragDockObject; X, 
    Y: Integer; State: TDragState; var Accept: Boolean); 
var 
    ARect: TRect; 
begin 
    Accept := Source.Control is TPanel; 
    if Accept then 
    begin 
    ARect.TopLeft := (Sender as TScrollBox).ClientToScreen(Point(0,Y)); 
    ARect.BottomRight := (Sender as TScrollBox).ClientToScreen(Point((Sender as TScrollBox).ClientWidth, Source.Control.Height+Y)); 
    Source.DockRect := ARect; 
    end; 
end; 

また、あなたは、いくつかのサードパーティのコンポーネントのための提案

How do I make dockable forms like the IDE's without the very slow freezing movement of the dockable form?