>960 問題なく赤から綠に変わったけど
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if(MyShapeSeries) delete MyShapeSeries;
MyShapeSeries=new TChartShape(Chart1);
MyShapeSeries->ParentChart=Chart1;
MyShapeSeries->HorizAxis=aBottomAxis;
MyShapeSeries->VertAxis=aBothVertAxis;
MyShapeSeries->Font->Color=clRed;
MyShapeSeries->Text->Add("Color");
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
if(MyShapeSeries) MyShapeSeries->Font->Color=clGreen;
}