StringGrid1 и StringGrid2. Их связь

[2Live]

здравствуйте подскажите, как можно в StringGrid1 выплывающее меню для ячеек одного столбца. и в результате заполнения этого столбца на StringGrid2 добавлялось такое же кол-во столбцов с названием этих ячеек... в данном случае оба StringGrid находятся в PageControl1.

Есть программа, которую надо восстановить, вот её часть, но не понятно что автор хотел этим сказать...

void __fastcall TMDIChildForm::PageControl1Change(TObject *Sender)
{
int i;

if(PageControl1->ActivePageIndex==2)
   StringGrid2->ColCount=GridView1->RowCount+1;


  for(i=1;i<StringGrid2->ColCount;i++)
    StringGrid2->Cells[i][0]= GridView1->Cells[1][i-1];
}

[MaTBeu]

Делаем так, берем два грида.
Потом, событие OnSelectCell первого грида пишем код

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
        //StringGrid1->RowCount = StringGrid2->RowCount;
        //StringGrid1->ColCount = StringGrid2->ColCount;
        for(int i = 0; i < StringGrid1->ColCount; i++)
                StringGrid1->Cells[ACol][i] = StringGrid2->Cells[ACol][i];
}

Потом при выборе ячейки одного грида выбраный столбец в одном гриде скопируется в другой.

Так, теперь выпадающее меню для одного столбца.
Кидаем на форму компонент PopupMenu, добавляем туда пункты меню. Заводим две глобальные переменные, которые будут обозначать выбранный столбец и строку.
Потом в событии, опять же OnSelectCell пишем

void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
        POINT p;
        GetCursorPos(&p);
        PopupMenu1->Popup(p.x, p.y); //разворачиваем меню
        SelectedRow = ARow; //наши глобальные переменные
        SelectedCol = ACol;    //то же
}

Дальше вешаем нужный нам код на тот или иной пункт меню.
В принципе, можно использовать только одну глобальную переменную - выбранный столбец.

[2Live]

он выдаёт такую ошибку:
"[C++ Error]Unit1.cpp(20):E2316'___fastcall TForm1::StringGrid1SelectCell(TObje ct *,int,bool &)' is not a member of 'TForm1'"
и почему то начинает ругаться на мою кнопку которая добавляет строки :

void __fastcall TForm1::Button1Click(TObject *Sender)
{
switch(Form1->PageControl1->ActivePageIndex)
{

Form1->StringGrid1->RowCount++;
for(int i=1;i<Form1->StringGrid1->RowCount;i++)
Form1->StringGrid1->Cells[0][i]=i;



}
}

...
просто мне надо бы что бы добалялись столько столбцов во втором гриде скролько добавляется строк в 1, и из столбца названия писались не в столбец, а в строку.
ПРосто не знаю почему ошибку выдаёт. Может не туда записываю, но кроме *.cpp больше некуда ведь. или есть?)

[Stilet]

is not a member of 'TForm1

А в Обьекте Инспекторов в событиях эта функция поставлена на обработчик OnSelectCell?

[MaTBeu]

просто мне надо бы что бы добалялись столько столбцов во втором гриде скролько добавляется строк в 1, и из столбца названия писались не в столбец, а в строку.

А какого вы полезли в визуальное программирование, если не знаете даже куда код писать?

Если вы не напишете хоть кусок своего кода, то тема закроется. Времени у вас до полуночи.