TControl.prg 
 ... 
    METHOD lValid() INLINE If( ::bValid != nil, !Empty(Eval( ::bValid, Self )), .t. ) 
    METHOD lWhen() INLINE  If( ::bWhen != nil, !Empty(Eval( ::bWhen, Self )), .t. ) 
 ... 
 METHOD GotFocus( hCtlLost ) 
  
    HB_SYMBOL_UNUSED( hCtlLost ) 
  
    ::lFocused := .T. 
    ::SetMsg( ::cMsg ) 
  
    if ::bGotFocus != nil 
       return Eval( ::bGotFocus, Self ) 
    endif 
  
 return nil 
  
 METHOD KeyChar( nKey, nFlags ) CLASS TControl 
 ... 
    if ::bKeyChar != nil 
       return Eval( ::bKeyChar, nKey, nFlags, Self ) 
    endif 
  
 return 0 
  
 METHOD KeyDown( nKey, nFlags ) CLASS TControl 
 ... 
    if ::bKeyDown != nil 
       return Eval( ::bKeyDown, nKey, nFlags, Self ) 
    endif 
  
 return 0 
  
 METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TControl 
  
    ::lMouseDown := .T. 
    ::nLastRow  := nRow 
    ::nLastCol  := nCol 
  
    if ::bLClicked != nil 
       return Eval( ::bLClicked, nRow, nCol, nKeyFlags, Self ) 
    endif 
  
 return nil 
  
 METHOD LButtonUp( nRow, nCol, nKeyFlags ) CLASS TControl 
  
    if ::bLButtonUp != nil 
       return Eval( ::bLButtonUp, nRow, nCol, nKeyFlags, Self ) 
    endif 
  
 return nil 
  
 METHOD LostFocus( hWndGetFocus ) CLASS TControl 
  
    ::lFocused := .F. 
    ::SetMsg() 
    if ! Empty( ::bLostFocus ) 
       return Eval( ::bLostFocus, hWndGetFocus, Self ) 
    endif 
  
 RETURN nil 
  
 METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TControl 
 ... 
    if ::bMMoved != nil 
       return Eval( ::bMMoved, nRow, nCol, nKeyFlags, Self ) 
    endif 
  
 return 0 
  
 METHOD RButtonUp( nRow, nCol, nKeyFlags ) CLASS TControl 
  
    if ::bRButtonUp != nil 
       Eval( ::bRButtonUp, nRow, nCol, nKeyFlags, Self ) 
    endif 
  
 return nil 
  
 METHOD ReSize( nSizeType, nWidth, nHeight ) CLASS TControl 
  
    ::CoorsUpdate() 
    if ::bResized != nil 
       Eval( ::bResized, nSizeType, nWidth, nHeight, Self ) 
    endif 
  
 return nil 
  
 Для использования 
  
          :bLButtonUp  := {|row,col,flag,ob| 
                            ? ":bLButtonUp",row,col,flag,ob 
                            IF hb_IsObject(ob) 
                               ?? ob:ClassName, ob:nCell 
                            ENDIF 
                            Return Nil 
                           } 
  
          :bWhen       := {|ob| 
                            ? ":bWhen",ob 
                            IF hb_IsObject(ob) 
                               ?? ob:ClassName, ob:nCell 
                            ENDIF 
                            Return .T. 
                           } 
  
          :bGotFocus   := {|ob| 
                            ? ":bGotFocus",ob 
                            IF hb_IsObject(ob) 
                               ?? ob:ClassName, ob:nCell 
                            ENDIF 
                            Return .T. 
                           } 
 ... 
 Результат 
  
 :bGotFocus  'O'   TSBROWSE 1   
 :bWhen   'O'   TSBROWSE 1   
 :bLClicked  8  92 1  'O'   TSBROWSE 2   
 :bLButtonUp 8  92 0  'O'   TSBROWSE 2   
 :bLClicked  7  152   1  'O'   TSBROWSE 3   
 :bLButtonUp 7  152   0  'O'   TSBROWSE 3   
 :bLClicked  9  246   1  'O'   TSBROWSE 4   
 :bLButtonUp 9  246   0  'O'   TSBROWSE 4   
 :bLClicked  12 22 1  'O'   TSBROWSE 1   
 :bLButtonUp 12 22 0  'O'   TSBROWSE 1   
 :bGotFocus  'O'   TSBROWSE 1   
 :bLClicked  7  104   1  'O'   TSBROWSE 2   
 :bLButtonUp 7  104   0  'O'   TSBROWSE 2   
 :bLClicked  11 162   1  'O'   TSBROWSE 3   
 :bLButtonUp 11 162   0  'O'   TSBROWSE 3   
 :bLClicked  6  237   1  'O'   TSBROWSE 4   
 :bLButtonUp 6  237   0  'O'   TSBROWSE 4   
 :bLClicked  10 28 1  'O'   TSBROWSE 1   
 :bLButtonUp 10 28 0  'O'   TSBROWSE 1