#ifndef DisableEventH
#define DisableEventH
//---------------------------------------------------------------------------
#include <ADODB.hpp>
//---------------------------------------------------------------------------
//Определить тип события с параметрами - Проверка поля
typedef void __fastcall
(__closure *TOnValidateEvent) (TField *Sender);
//Определить тип события с параметрами - Расчет вычисляемых полей
typedef void __fastcall
(__closure *TOnCalcFieldsEvent) (TDataSet *DataSet);
//---------------------------------------------------------------------------

//Класс для маскирования события
template <typename T>
class DisableEvent
{
public:		// User declarations
	__fastcall DisableEvent(T &Event);
	__fastcall ~DisableEvent<T>(void);

private:
	T *_Event;
	T cEvent;

};
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
//---------------------------------------------------------------------------
#include "DisableEvent.h"

//Реализация класса для маскирования события
template <typename T>
__fastcall DisableEvent<T>::DisableEvent(T &Event)
{
_Event=&Event;  

cEvent=*_Event;
*_Event= 0 ;    //Маскировать событие

}
//Eof:DisableEvent
//---------------------------------------------------------------------------

template <typename T>
__fastcall DisableEvent<T>::~DisableEvent(void)
{
*_Event=cEvent;  //Восстановить адрес функции события
}
//Eof:~DisableEvent
//---------------------------------------------------------------------------

void __fastcall TfrmRestList::adsRestListT_RESTValidate(TField *Sender)
{

//Маскировать событие OnValidate, чтобы предовратить
//циклический вызов adsRestListT_RESTValidate при изменении поля
DisableEvent<TOnValidateEvent> Event(adsRestListT_REST->OnValidate);
 
. . .
Sender->AsString=" . . .";
. . . 

}