Timage & Tlabel

[neizerth]

Есть два динамических массива (TImage & TLabel) из n элементов
Как динамически связать i элемент массива TImage и i элемент массива TLabel чтобы при щелчке на i-ом элементе TImage вызывался обработчик для i-ого элемента TLabel?
...
LabelArray[j]->OnClick = Label1Click;
imgArray[j]->OnClick = LabelArray[j]->OnClick;
...
void __fastcall TForm2::Label1Click(TObject *Sender)
{
Edit1->Text = dir+"\\"+((TLabel*)(Sender))->Caption;
Form1->Quest3DCtlr21->SetChannelText(WideString("manchester"),WideStrin g("TextureFilename"),WideString(Edit1->Text));
Form1->Quest3DCtlr21->SetChannelValue(WideString("manchester"),WideStri ng("ValueLoad"),1);
}

 

[neizerth]

Всем спасибо, проблема решена!