Miscellany

class Ball {
        public:
                virtual void printMessage () = 0;
};

class BallCanvas : public Ball {
public:
 BallCanvas () {
       MessageBox(NULL, "Utworzylim BallCanvas", "-", 1);
 }
 virtual void printMessage (void) {
   MessageBox(NULL, "BallCanvas", "-", 1);
 }
};

class BallTShape : public TShape, Ball {
public:
 BallTShape (TShape AOwner) : TShape (AOwner) {
       MessageBox(NULL, "Utworzylim BallTShape", "-", 1);
 }
 virtual void printMessage (void) {
   MessageBox(NULL, "BallTShape", "-", 1);
 }
};