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);
}

Модератор: тег CODE

[MaTBeu]

Вам нужно создавать массив указателей на TLabel и TImage.
А вот такая конструкция

LabelArray[j]->OnClick = Label1Click;
imgArray[j]->OnClick = LabelArray[j]->OnClick;

вполне даже работает.

Тоесть вам нужно сначала написать вот так

TLabel **Labels;
Labels = new TLabel*[20];

а потом каждому элементу этого массива присваивать указатель на соответствующий компонент на форме.

[neizerth]

Дело в том, что

LabelArray[j]->OnClick = Label1Click;
imgArray[j]->OnClick = LabelArray[j]->OnClick;

приводит к тому, что обработчик события не помещает в Edit1 заголовка TLabel...Поле остается заполненным только переменной dir

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

[MaTBeu]

Вам нужно получить текст на метке?
Тогда вот так пробуйте
Edit1->Text = Label1(Sender).Caption;

[0nni]

Возможно поле Tag поможет.

[neizerth]

А как возможно поле Tag элемента TImage связать с полем Tag элемента TLabel?

[0nni]

С самим label. С с++ плохо знаком но кажется что то вроде этого

Image1.tag = (int)Label1;

Посде этого в поле tag хранится указатель на сам объект.
Доступ к объекту вроде этого

((TLabel)Image1.tag).Caption = "New label caption"

Таким образом у тебя остаться массив TImage и все.

Если кто знает - поправьте код.

А еще, почему бы в в массиве не хранить структуру с двумя указателями?

[neizerth]

Я не работал с указателями, поэтому не понимаю, как организовать подобную связь.
Собственное решение было таковым:

void __fastcall TForm2::Image2Click(TObject *Sender)
{
int tag = ((TImage*)(Sender))->Tag;

        for (int m =0;m <=j;m++)
        {
                if (LabelArray[m]->Tag == tag)
                {
                LabelArray[m]->Color = 0xFFD700;
                Form1->Quest3DCtlr21->SetChannelText(WideString("manchester"),WideString("TextureFilename"),WideString(dir+"\\"+LabelArray[m]->Caption));
                Form1->Quest3DCtlr21->SetChannelValue(WideString("manchester"),WideString("ValueLoad"),1);
                }
                else
                LabelArray[m]->Color = clBtnFace;
        }
}