Не перемещается TShape - C++ Builder - Ответ 8976534

//##### ..... #####
// .........
class   TForm1  : public    TForm
{
 
__published:    // IDE-managed Components
    TShape *Shape1;
    void __fastcall FormMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
    void __fastcall FormMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y);
 
//- void __fastcall Shape1MouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
//-          int X, int Y);
    void __fastcall Shape1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
//- void __fastcall Shape1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
//-          int X, int Y);
    void __fastcall FormMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
 
 
 
private:    // User declarations
    // указатель на динамический Шейп.
    TShape*     shp;
 
    //##### ..... #####
//- // для сохранения координат Мыши.
//- int     X_Save;
//- int     Y_Save;
    // признак Нажатия левой клавиши Мыши.
    bool    IsMouseDown;
 
    // обработчик нажатия клавиши мыши на Шейпе.
    void __fastcall  TForm1::shpMouseDown( TObject*  Sender, TMouseButton  Button, TShiftState  Shift,
        int  X, int  Y );
//- // обработчик перемещения клавиши мыши на Шейпе.
//- void __fastcall  TForm1::shpMouseMove( TObject*  Sender, TShiftState  Shift,
//-     int  X, int  Y );
//- // обработчик отпускания клавиши мыши на Шейпе.
//- void __fastcall  TForm1::shpMouseUp( TObject*  Sender, TMouseButton  Button, TShiftState  Shift,
//-     int  X, int  Y );
 
public:     // User declarations
    // конструктор.
    __fastcall  TForm1(TComponent* Owner);
 
};
//------------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//------------------------------------------------------------------------------

//##### ..... #####
// радиус динамического Шейпа по оси X.
int     shp_rad_x = 4;
// радиус динамического Шейпа по оси Y.
int     shp_rad_y = 12;
 
 
//##### ..... #####
// конструктор.
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // фиктивный Шейп - НЕ имееи размеров.
    Shape1->Width = 0;
    Shape1->Height = 0;
    // фиктивный Шейп - невидим.
    Shape1->Visible = false;
    // указатель на динамический Шейп.
    shp = NULL; //(TShape*)
 
    // признак Нажатия левой клавиши Мыши.
    IsMouseDown = false;    //(bool)
}
 
//##############################################################################
// .........    //(РАБОТАЕТ !)
void __fastcall  TForm1::FormMouseDown( TObject*  Sender, TMouseButton  Button, TShiftState  Shift,
    int  X, int  Y )
{
    // *** динамический "Шейп". ***
    // создать динамический "Шейп".
    shp = new   TShape( this );
    shp->Parent = this;
    // размеры.
    shp->Width = shp_rad_x*2;
    shp->Height = shp_rad_y*2;
    // положение.
    shp->Top = Y - shp_rad_y;
    shp->Left = X - shp_rad_x;
    // цвет.
    shp->Brush->Color = clAqua;
    // динамические обработчики.
    shp->OnMouseDown    = &shpMouseDown;
//- shp->OnMouseMove    = &shpMouseMove;
//- shp->OnMouseUp      = &shpMouseUp;
    // .........
    shpMouseDown( Sender, Button, Shift,    //(TObject*, TMouseButton, TShiftState,)
            X - shp->Left, Y - shp->Top );  //(int, int)
}
 
// .........    //(РАБОТАЕТ !)
void __fastcall     TForm1::FormMouseMove( TObject*  Sender, TShiftState  Shift, int  X, int  Y )
 
{
    if ( shp    && IsMouseDown )
    {
        Shape1MouseMove(
            shp, Shift,
            X - shp->Left - shp_rad_x,  //(чтобы курсор мыши бы все время
            Y - shp->Top - shp_rad_y ); // посередине динамического Шейпа.)
    }
}
 
// .........    //(РАБОТАЕТ !)
void __fastcall  TForm1::FormMouseUp( TObject*  Sender, TMouseButton  Button, TShiftState  Shift,
    int  X, int  Y )
{
    // .........
    delete  shp;
    shp = NULL;
}
 
//##############################################################################
// .........    //(РАБОТАЕТ !)
void __fastcall  TForm1::shpMouseDown( TObject*  Sender, TMouseButton  Button, TShiftState  Shift,
    int  X, int  Y )
{
//- X_Save = X;
//- Y_Save = Y;
    IsMouseDown = true;
}
 
//##############################################################################
//-int      OldX = 0;
//-int      OldY = 0;
 
// .........    //(РАБОТАЕТ !)
void __fastcall TForm1::Shape1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
    if ( IsMouseDown )
    {
        TShape*     shape = static_cast<TShape*>(Sender);
        shape->Left += X;   // - OldX;
        shape->Top += Y;    // - OldY;
    }
}