Timage & Tlabel

  • Автор темы neizerth
  • Дата начала
N

neizerth

Гость
#1
Есть два динамических массива (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);
}