Управление объектом динамического массива с другой формы (this)

@Куропаткин · Регистрация: 12.10.2015

Студворк — интернет-сервис помощи студентам

По нажатию кнопки на форме 2 , объект TImage на форме 1 должен поменять изображение.

Создание динамического массива на Form1:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
for (i=0;i<kr_n;i++)
        {
        TImage *kran;
        kran = new TImage(this);
        kran->Parent = Form1;
        kran->Name = (Form1->StringGrid1->Cells[0][i]);
        int pos=(Form1->StringGrid1->Cells[4][i]).ToInt();
        if (pos==1){kran->Height = 25;
                        kran->Width = 19;}
                else {kran->Height = 19;
                        kran->Width = 25;}
        kran->Top = (Form1->StringGrid1->Cells[3][i]).ToInt();
        kran->Left = (Form1->StringGrid1->Cells[2][i]).ToInt();
        int key = Form1->StringGrid1->Cells[4][i].ToInt();
        if (key==1) {Form1->ListV->GetBitmap(0, kran->Picture->Bitmap);}
                  else {Form1->ListG->GetBitmap(0, kran->Picture->Bitmap);}
        kran->Enabled = true;
        kran->Transparent = true;
        kran->Visible = true;
        kran->OnClick = KranClick;
        }
}

Поиск объекта c Form2:

C++
1
2
TImage *kran = (TImage*)Form1->FindComponent(((TControl  *)Sender)->Name);
Form1->ListG->GetBitmap(1, kran->Picture->Bitmap);

Добавлено через 1 минуту
Ошибка при обращении к объекту. Что я не понимаю?

Добавлено через 17 минут
Узнал что я должен расставить приоритеты, заменил выражение добавив скобки,
однако реакция компилятора та же((

TImage *kran = ((TImage*)(Form1->FindComponent(((TControl *)Sender)->Name)));
Form1->ListG->GetBitmap(1, kran->Picture->Bitmap); // не может найти объект "kran"

@volvo · 18.06.2016, 11:57

Сообщение от Куропаткин

Поиск объекта c Form2:

Откуда вызывается этот код? Что такое Sender в данном контексте?

Сообщение от Куропаткин

заменил выражение добавив скобки

Чтобы не закапываться в скобках, есть static/dynamic_cast-ы:

C++
1
TImage *kran = static_cast<TImage*>(Form1->FindComponent(static_cast<TControl*>(Sender)->Name));

Но вопрос насчет того, откуда здесь взялся Sender, остается в силе.

@Куропаткин · 20.06.2016, 06:34 **[ТС]**

Сообщение от volvo

Откуда вызывается этот код? Что такое Sender в данном контексте?

Чтобы не закапываться в скобках, есть static/dynamic_cast-ы:

C++
1
TImage *kran = static_cast<TImage*>(Form1->FindComponent(static_cast<TControl*>(Sender)->Name));

Но вопрос насчет того, откуда здесь взялся Sender, остается в силе.

Извиняюсь, проект большой и я не все ньюансы обговорил(
Следующие строчки кода:

C++
1
2
TImage *kran = (TImage*)Form1->FindComponent(((TControl  *)Sender)->Name);
Form1->ListG->GetBitmap(1, kran->Picture->Bitmap);

выполняются в процедуре KranClick (свойство OnClick для динамического объекта)
То есть Sender посылает имя объекта по которому кликнули мышью) я много не понимаю, вероятно, поэтому пишу как знаю)

@volvo · 20.06.2016, 10:10

Так. Давай код полностью, я чувствую, ты вообще не понимаешь, что делаешь.

@Куропаткин · 20.06.2016, 12:16 **[ТС]**

Есть базы SQL) но дело совсем не в них) мне нужно: по нажатию кнопки Button1 на Form2 происходило заполнение Form1 ) Код заполнения лежит в Unit1 процедура KranClick.

@Куропаткин · 22.06.2016, 15:15 **[ТС]**

РЕШЕНИЕ НАЙДЕНО)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
   
          kr_cl=(((TControl  *)Sender)->Name); // в процедуре OnClick при переходе на вторую форму
 
 
     //код возврата с формы 2 на форму 1
        for(i=0;i<Form1->StringGrid2->RowCount;i++)
         {
          TImage *kran = dynamic_cast<TImage *>(Form1->FindComponent("kran_"+AnsiString(i))); // поиск компонентов на форме 1
          {
          if (kran->Name==kr_cl)   
          {
            kran->OnClick(Sender);  // удаленное нажатие кнопки на форме 1
          }
         }

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@volvo Супер-модератор 33398 / 21508 / 8236 Регистрация: 22.10.2011 Сообщений: 36,906 Записей в блоге: 12
	20.06.2016, 10:10
	Так. Давай код полностью, я чувствую, ты вообще не понимаешь, что делаешь. 0

Управление объектом динамического массива с другой формы (this)

Решение