Реализация события без использования VCL

typedef void __fastcall (__closure *TProgrEvent)(int);

__property TProgrEvent OnProgr = {read=FOnProgr, write=FOnProgr};

TProgrEvent FOnProgr;

MyClass *my_class = new MyClass();
my_class->OnProgr = onProgress;

void __fastcall Main::onProgress(int cnt)
{
ShowMessage(cnt);
}

if (FOnProgr){FOnProgr(total_cnt);}

class MyClass
{
     public:
         MyClass():progress_function_(NULL),value_(0)
         {
 
         }
 
                 // Тип указателя на метод обработчик
         typedef void (MyClass::*Progress_function) (int& value);
 
                 // мето вызываюший "прогресс"
         void progress()
         {
             if(progress_function_)
                 (this->*progress_function_)(value_);
         }
 
                // Назначение обработчика
         void setOnProgress(Progress_function  progress_function)
         {
             progress_function_= progress_function;
         }
 
                 // два обработчика
         void myClassProgressNext(int& value);
         void myClassProgressBack(int& value);
 
     private:
         Progress_function  progress_function_; // Указатель на метод обработчик
         int value_;
};
 
// Обработчики
void MyClass::myClassProgressNext(int& value)
{
    value++;
    std::cout<< value << std::endl;
}
 
void MyClass::myClassProgressBack(int& value)
{
    value--;
    std::cout<< value << std::endl;
}
 
int main()
{
         MyClass obj;
 
         std::cout<<"Next"<< std::endl;
         obj.setOnProgress(MyClass::myClassProgressNext);
         obj.progress();
         obj.progress();
         obj.progress();
 
         std::cout<<"Back"<< std::endl;
         obj.setOnProgress(MyClass::myClassProgressBack);
 
         obj.progress();
         obj.progress();
 
        getchar();
        return 0;
}