256   __________________________________________ 4

        
.     4.2.    
-     OnMouseDown  OnMouseUp.  
     -   , j
 , ,   ,   
,       OnDblClick,   -
  OnMouseDown  OnMouseUp    ,  
,       .

 4.2.       |
  '

 _______i      __________________

1        i OnMouseDown.      |
|                               '           j

_________________I _____________'____________   ^

    OnClick                              ; 

OnMouseUp.   - i 

_______________________       f

        OnDblClick                           : i

OnMouseDown.      J
          '
                                 i

    OnMouseUp.   -
     

4.3.1.2   ,    ,  j
 

   ,     (   
 )   Sender    TObject. 
    ,    .  
,        .
       .  I
 -        ,  - '
-   .  Sender   
  . ,   TObject   -
      ,   Sender  - |
       TObject .

,     Sender,    ;

 1   1.6.6.2.  ,    ,  
 Sender,  ,   , ,    
 -   .

     ,    
ClassNameIs. , :                                          |

if (Sender->ClassNameIs("TListBox"))                                    |

,        TListBox.       '
         -
  ,        ,
     . ,               J