Лабы / С++Builder / Laba5 / task3 / Unit2

//---------------------------------------------------------------------------

#ifndef Unit2H
#define Unit2H
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
class SuperShape: public TShape
{
__published:

__property OnMouseDown;
__property OnMouseUp;
__property OnMouseMove;

private:
DYNAMIC void __fastcall MouseDown
        (TMouseButton Button, Classes::TShiftState Shift, int X, int Y);

DYNAMIC void __fastcall Click
        ();

DYNAMIC void __fastcall MouseUp
        (TMouseButton Button, Classes::TShiftState Shift, int X, int Y);

DYNAMIC void __fastcall MouseMove
        (Classes::TShiftState Shift, int X, int Y);

DYNAMIC void __fastcall DblClick(void);

int x0,y0;
bool moving;

public:
        TComponent* own;
        __fastcall SuperShape(Classes::TComponent *Owner) : TShape(Owner)
        {
        own=Owner;
        }

};