274________________________________________________ 4

4.6    


4.6.1  

     Windows   -
      - .    
  -      -
     .

       
.      Left  . 
     .   -
 .     16 , 15   , 
     (. . 4.17,    -
,      ,   ).   -
       .   -
        ,     
 .       ,   15  
   .

                        ^               KrptIS         /        :  .

     OnClick   -
.      .    
       Bound-
sRect    TRect,      
    .      ,
    :

struct TRect rec;

         
.

        -
   OnClick    :

void _fastcall TFormI::PanellClick(TObject *Sender)
{

//    
rec = ( (TPanel *)Sender)->BoundsRect;

// 
((TPanel *)Sender)->BoundsRect = Panell6->BoundsRect;

//  
Panell6->BoundsRect = rec;

)