   ______________275

         TRect -
  ,   ,   -
         Sender. 
TRect     BoundsRect,    
      .    -
ject,    Sender,  BoundsRect  ,  -
      TPanel, ..   ((TPanel
*)Sender),        1  
1.6.6.2.

     ,    -
116,   .    
 BoundsRect  116    . -
      116  , -
        .

    ,    
     .      -
         . 
 ,   ,   .

4.6.2  

   .    4.17  -
        -
. ,        Panell.

  :   YO    
.     move,    
   :  (move = true)   -
  :             <

int , YO;

bool move = false;

        
.     OnMouseDown 
,    :

void_fastcall TFormI:: PanellMouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{
if (Button != mbLeft) return;

XO = X;

YO = Y;

move = t rue;

//    :

Panell->BringToFront() ;

}

    ,     
 (   Button  mbLeft,   -
).      YO      Y  
 .    ( move).  -
          BringToFront.
        . 
  ,     ,     
    .

        OnMouseMove,
 :