Shape组件画圆

[mazhichao84]

哪位高手帮我看一下，谢谢！
代码：
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Shape1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
Shape1->Shape=stCircle;
Shape1->Color=clRed;
Shape1->Style=bsVertical;
}
错误提示：
[C++ Error] Unit1.cpp(22): E2247 'TControl::Color' is not accessible
[C++ Error] Unit1.cpp(23): E2316 'Style' is not a member of 'TShape'

[mazhichao84]

谢谢！！！

[ximenziplc]

void __fastcall TForm1::Shape1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{

    Shape1->Shape=stCircle;
    Shape1->Brush->Color =clRed;
    Shape1->Brush->Style=bsVertical;

}