void __fastcall TMyForm::MyComponentMouseMove(TObject *Sender,
        TShiftState Shift, int X, int Y)
  {
    class TPublicControl: public TControl
    {
     public:
      __property OnClick;
    };
    TControl* Control = dynamic_cast<TControl*>(Sender);
    if (Control && ((TPublicControl*)Control)->OnClick)
         ((TPublicControl*)Control)->OnClick(Sender);
  }

Вячеслав Ермолаев 2:5020/175.2

Предыдущий вопрос   |    |   Следующий вопрос

источник            by jenyok