Series의 OnClick 함수와 동일한 형태로

AllSeriesOnClick 이라는 함수(현재 클릭한 Series를 제외하고 나머지 Series에 랜덤으로 점을  추가)

를 만들어서 Form1~3->Series1 의 OnClick 에 대입?, 연결? 시켜 줍니다.

//---------------------------------------------------------------------------
int n=0;
void __fastcall TForm1::AllSeriesOnClick(TChartSeries *Sender, int ValueIndex, TMouseButton Button,
		  TShiftState Shift, int X, int Y)
{
	 TChartSeries *Series[3] = {
		 Form1->Series1,
		 Form2->Series1,
		 Form3->Series1
	 };

	 for (int i = 0; i < 3; i++) {
		if (Sender != Series[i]) {
			Series[i]->AddXY(n,random(n++));
		}
	 }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
	Form1->Series1->OnClick=AllSeriesOnClick;
	Form2->Series1->OnClick=AllSeriesOnClick;
	Form3->Series1->OnClick=AllSeriesOnClick;


	Series1->AddXY(n,random(n++));
	Series1->AddXY(n,random(n++));
	Form2->Show();
	Form3->Show();
}
//---------------------------------------------------------------------------

사에버 님이 쓰신 글 :
: 안녕하세요. 빌더 초보입니다.
:
: 메인으로 TForm1을 사용하고, 거기에서 사용한 이벤트 함수를 TForm2에서도 끌어다 쓰고싶습니다.
:
: 예를들어, TForm1에 TChart가 있고, OnClickSeries 이벤트를 사용하고 있습니다.
: TForm2에 있는 TChart에서도 해당 이벤트를 사용함과 동시에,
: TForm1의 그래프와 TForm2의 그래프의 두 이벤트가 동시동작되도록 하고 싶은데
: 방법이 있는지 궁금합니다.
:
: