268______________________________________________ 4  1

  -     -
  ( 15  16  . 4.14 ),   , -
     ,    , 
 ,     .   
    ,   
 .

     .     -
 DockSite  true    .  -
   .    - 
-    ,   , -
    ..        
,       . -
  ,         
    .

 ,     - 
 .

    DockClients,  

TControl* DockClients[int Index]

      ,   -
.  DockClientCount   .    Do-
ckClients  DockClientCount   .

  ,    -
  .      ,   -
  DockSite = true.

     OnGetSiteInfo,     -
      . 
   :

void   fastcall TFormI::PanellGetSiteInfo(TObject *Sender,

TControl *DockClient, TRect &InfluenceRect,
TPoint SMousePos, bool sCanDock)

      DockClient  -
 , InfluenceRect     ,
  , MousePos      CanDock 
 .     CanDock = false,  -
 ,    , . , 
     OnGetSiteInfo  Panell :

CanDock = DockClient != 1;

 Panell    ,  16.
    OnDockOver,   ,  -
-   -, ,   
   ,  .   
 OnDragOver   Drag&Drop.   -
  :

void _fastcall TFormI::PanellDockOver(TObject *Sender,

TDragDockObject *Source, int X, int Y,
TDragState State, bool ^Accept)

    ,     , ,  
,       , -
  Source.    ,    Ac-
cept = false.