426______________________________________________ 7

private:

TNotifyEvent FOnClear;

_published:

_property TNotifyEvent OnClear = <read=FOnClear, write=FOnClear};

    FOnClear  TNotifyEvent, 
.       ,   .  
read  write      ,   .

        ,
   . ,    -
,       ,
 true,     .  
        -
       Clear :

if (OnClear) OnClear(this);

    OnClear.

     ,  , -
      EditLetNumI  
    .  ,     
  OnClear.          
      :

void_fastcall TFormI::EditLetNumlClear(TObject *Sender)

(

)

    - ,    
    , :

ShowMessage(" OnClear");

     .

       TNotifyEvent.
    .       -
  CanClear,     true,   
    .   
         false,
     .

   ,      .  -
      _closure. , ,  
      TClear.    
    :

typedef void   fastcall ( closure *TClear)(System::TObject *Sender,
bools CanClear) ;

     ,   -
:      Sender   
CanClear,    .

       
.            , -
    :

TClear FOnClear;

property TClear OnClear = (read=FOnClear, write=FOnClear);