270______________________________________________ 4

void _fastcall TFormI::FormDragDrop(TObject *Sender, TObject *Source,
int X, int Y)

     Source    
    , ,      Y. ,
    -    ,  -
      .

,   -  ,  
     OnUnDock.  
  :

void   fastcall TFormI::FormOnDock(TObject *Sender,

TControl *Client, TWinControl *NewTarget, bool SAllow)

     Client  ,  
, NewTarget   ,    
,  Allow  , ,    . -
,          
OnUnDock  Panell :

Allow = Client != Panel2;

,  , ,  Panel2,    Panell, 
   ,     .

,       
Drag&Doc,   -  ,    -
.      ,     -
.

    ,  , 
           -
 .

      .

1.   ( Name) Fmain.

2.     MainMenu       
 ,      .

3.    ,    Caption  
   Align = .

4.     PageControl   Align = alClient, 
    ,  ,    -
 (. 4.15 ).     DockSite  true.  -
    .

6.      ,   File New Form. -
  FDoc ( Name).    Visible  true. -
   DragKind  dkDock,   DragMode 
dmAutomatic.       TPageControl
  Fmain.

7.    FDoc  Memo,    Align = alClient,
     (. 4.15 ).     ( Lines).

8.   Proj ect Options...     Forms  FDoc 
 Auto-create forms   Available forms,    -
  ,        (
   .  4.7.2).

9.  ,      Umain,    
UDoc.