   ___________________427

   Clear ,      
CanClear:

void _fastcall TEditLetNum::Clear()
{
bool CanClear = true;

if (OnClear) OnClear(this,CanClear);

if (CanClear)
{

TEdit::Clear();     //   
FModified = false;

)

      CanClear.   -
     CanClose      -
  .      CanClose 
      OnClear.

   .      
.

 EditLetNum.h:

//   

typedef void _fastcall (_closure *TClear)(System::TObject *Sender,
bool& CanClear) ;

class PACKAGE TEditLetNum : public TEdit

(

private:

//  - 

bool FEnableLet;

bool FEnableNum;

bool FModified;

TClear FOnClear;

protected:

//   

void   fastcall SetEnableLet(bool AEnableLet);

void _fastcall SetEnableNum(bool AEnableNum);

void _fastcall Keypress(char &Key) ;

public:

//  

_fastcall TEditLetNum(TComponent* Owner);

//   Clear
void _fastcall Clear();

//    

property bool Modified = (read=FModified, default=false);

_published:

//  ,    

property bool EnableLet = {read=FEnableLet, write=SetEnableLet,
default=true) ;

_property bool EnableNum = <read=FEnableNum, write=SetEnableNum,
default=true);

_property TClear OnClear = {read=FOnClear, write=FOnClear) ;

);