• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

    На последнюю неделю приходится экзамен, где нужно будет показать свои навыки, взломав ряд уязвимых учебных сайтов, и добыть флаги. Успешно сдавшие экзамен получат сертификат.

    Запись на курс до 25 апреля. Получить промодоступ ...

Timage & Tlabel

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

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

neizerth

Всем спасибо, проблема решена!
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!