Класс не видит обЪект Borland C++ Builder

[firefox0013]

Пишу курсовую. Суть создать класс и его наследников рисующих фигуру. Создаю класс Point его наследника Krug и в нем функцию рисования в канве. Вылазит ошибка :
[BCC32 Error] Unit1.cpp(40): E2451 Undefined symbol 'PaintBox1'
[BCC32 Error] Unit1.cpp(40): E2108 Improper use of typedef 'point'
На сколько я понимаю класс PaintBox просто не видит хотя он есь, а что с point не понимаю. Как это можно исправить? причем рисование должно быть именно в классе

 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 class point
{
  protected:
  int x,y;
 
  point(int xk,int yk)
  {
  x=xk;
  y=yk;
  }
};
 
class krug : public point
 {
 private:
 int rad;
 public:
 
 krug(int xr,int yr,int radk):
 point(xr,yr)
  {
   rad=radk;
  }
 
 void krug::show()
  {
   PaintBox1->Canvas->Ellipse((point.x-rad),(point.y-rad),(point.x+rad),(point.y+rad)); //Вот тут ошибка
  }
 
 };
 
 
 
int xk,yk,radk;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 xk=StrToInt(Edit1->Text);
 yk=StrToInt(Edit2->Text);
 radk=StrToInt(Edit3->Text);
 // А сдесь по идеи должна вызыватся функция show 
 //PaintBox1->Canvas->Ellipse((xk-radk),(yk-radk),(xk+radk),(yk+radk));
 
}
//---------------------------------------------------------------------------
 
 
 
 
void __fastcall TForm1::PaintBox1Click(TObject *Sender)
{
PaintBox1->Canvas->Rectangle(1,1,1000,1000);
}
//---------------------------------------------------------------------------

[Stilet]

Undefined symbol 'PaintBox1'

Правильно не видит. Нет такого ПаинтБокса в классе
Если имеется ввиду паинтбокс на форме то:

void krug::show()
  {
   Form1->PaintBox1->Canvas->Ellipse((point.x-rad),(point.y-rad),(point.x+rad),(point.y+rad)); //Вот тут ошибка
  }

[firefox0013]

Спасибо рисование заработало, но теперь косяк с конструктором похоже. вылазит окошко:

First chance exception at $7C812AFB. Exception class EAccessViolation with message 'Access Violation'. Process Project1.exe (4084)

но если переместить krug A; в кнопку 1 то такой ошибки нет но в кнопке 2 A.Show() не видит A

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

 class point
{
  protected:
  int x,y;

  point()
  {
  x=StrToInt(Form1->Edit1->Text);
  y=StrToInt(Form1->Edit2->Text);
  }

  void move(int xm,int ym)
  {
  x+=xm;
  y+=ym;
  }

};

class krug : public point
 {
 private:
 int rad;
 public:

 krug():
 point()
  {
   rad=StrToInt(Form1->Edit3->Text);;
  }

 void show()
  {
   Form1->PaintBox1->Canvas->Ellipse((point::x-rad),(point::y-rad),(point::x+rad),(point::y+rad));
  }

 };




int xt=10,yt=10;
krug A;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 //krug A;
 A.show();
}
//---------------------------------------------------------------------------




void __fastcall TForm1::PaintBox1Click(TObject *Sender)
{
PaintBox1->Canvas->Rectangle(1,1,1000,1000);
}
//---------------------------------------------------------------------------



void __fastcall TForm1::Button2Click(TObject *Sender)
{
A.move(xt,yt);  //тут ошибка если krug A; находится в кнопке
}
//---------------------------------------------------------------------------

[Stilet]

Во-первых:

 public:
 void move(int xm,int ym)
  {
  x+=xm;
  y+=ym;
  }

Ато он у тя невидим. (я вообще удивляюсь как это скомпилилось)

Во-вторых:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
krug A;
A.move(xt,yt);
A.show();

}

Все работает как надо.

В-третьих: Если ты локализуешь krug A в одной функции, то и работать он будет только в ней - про видимость переменных почитай.
Так что как правило такие вещи делают глобальными

[firefox0013]

Так вот я ее хочу сделать глобальной обявляю сразу после класса
а она выдает Access Violation

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 class point
{
  protected:
  int x,y;
 
  point()
  {
  x=StrToInt(Form1->Edit1->Text);
  y=StrToInt(Form1->Edit2->Text);
  }
 
  void move(int xm,int ym)
  {
  x+=xm;
  y+=ym;
  }
 
};
 
class krug : public point
 {
 private:
 int rad;
 public:
 
 krug():
 point()
  {
   rad=StrToInt(Form1->Edit3->Text);;
  }
 
 void show()
  {
   Form1->PaintBox1->Canvas->Ellipse((point::x-rad),(point::y-rad),(point::x+rad),(point::y+rad));
  }
 
 };
 
 
 
 
int xt=10,yt=10;
krug A; //Вот тут
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------

[Stilet]

А че у меня все работает?

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

 class point
{
  protected:
  int x,y;

  point()
  {
  x=10;
  y=10;
  }

  public:void move(int xm,int ym)
  {
  x+=xm;
  y+=ym;
  }

};

class krug : public point
 {
 private:
 int rad;
 public:

 krug():
 point()
  {
   rad=10;
  }

 void show()
  {
   Form1->PaintBox1->Canvas->Ellipse((point::x-rad),(point::y-rad),(point::x+rad),(point::y+rad));
  }

 };




int xt=10,yt=10;
krug A;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 A.show();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
A.move(xt,yt);
A.show();
}
//---------------------------------------------------------------------------

Я только Эдиты поубирал.

[firefox0013]

так он на них и орет понять не могу почему

[Stilet]

на них и орет

Ах вон чего. Сразу бы и сказал.
Вообще так с классами не поступают. По хорошему их нужно создавать:

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

 class point
{
  protected:
  int x,y;

  point()
  {
  x=StrToInt(Form1->Edit1->Text);
  y=StrToInt(Form1->Edit2->Text);
  }

  public:void move(int xm,int ym)
  {
  x+=xm;
  y+=ym;
  }

};

class krug : public point
 {
 private:
 int rad;
 public:

 krug():
 point()
  {
   rad=10;
  }

 void show()
  {
   Form1->PaintBox1->Canvas->Ellipse((point::x-rad),(point::y-rad),(point::x+rad),(point::y+rad));
  }

 };




int xt=10,yt=10;
krug *A;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 A->show();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
A->move(xt,yt);
A->show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
A=new krug;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
 delete A;
}
//---------------------------------------------------------------------------

И удалять.
Заруби это себе в наносу пригодится.

[firefox0013]

БОЛЬШОЕ спасибо. Заработало!!!!!

[firefox0013]

еще маленький вопросик
x,y переменные указатели int родителя point
rad указатель int наследника

Ellipse((*(point::x)-*rad),(*(point::y)-*rad),(*(point::x)+*rad),(*(point:: y)+*rad));

выдает ошибку неправильного обращения к поинт всяко разно уже пробовал не получается