Поиск сообщества

Здравствуйте, недавно приступил к изучению обезьянки, тк необходимо реализовать следующее: есть поле датчиков 30 штук, расположенных квадратом. Над ними проводят объект который меняет их магнитное поле, всё это записывается в двухмерный массив(т.е. в одной строчке(один датчик) будут 0 пока над датчиком не пролетит объект), необходимо визуализировать этот процесс. Решил использовать Plane, на которой закрепил 30 Cube(Рис 1). По задумке столбик должен расти при изменении значения в массиве: float mas[3][3] = {{1,0,0},{0,1,0},{0,0,1}}; void __fastcall TForm3D1::Form3DCreate(TObject *Sender) { FloatAnimation1->Parent = Cube1; FloatAnimation1->PropertyName = "Scale.Y"; //FloatAnimation1->StopValue = 1; FloatAnimation1->Duration = 1; FloatAnimation1->AnimationType = TAnimationType::atIn; FloatAnimation1->Interpolation = TInterpolationType::itLinear; FloatAnimation1->StartFromCurrent = true; FloatAnimation2->Parent = Cube2; FloatAnimation2->PropertyName = "Scale.Y"; //FloatAnimation2->StopValue = 1; FloatAnimation2->Duration = 1; FloatAnimation2->AnimationType = TAnimationType::atIn; FloatAnimation2->Interpolation = TInterpolationType::itLinear; FloatAnimation2->StartFromCurrent = true; FloatAnimation3->Parent = Cube3; FloatAnimation3->PropertyName = "Scale.Y"; //FloatAnimation3->StopValue = 1; FloatAnimation3->Duration = 1; FloatAnimation3->AnimationType = TAnimationType::atIn; FloatAnimation3->Interpolation = TInterpolationType::itLinear; FloatAnimation3->StartFromCurrent = true; } void __fastcall TForm3D1::Button1Click(TObject *Sender) { for (int i = 0; i < 3; i++) { Form3D1->resizecube(i); } } void __fastcall TForm3D1::resizecube(int a) { FloatAnimation1->StopValue = mas[a][0]; FloatAnimation1->Start(); FloatAnimation2->StopValue = mas[a][1]; FloatAnimation2->Start(); FloatAnimation3->StopValue = mas[a][2]; FloatAnimation3->Start(); // ShowMessage(""); } Сделал пример для простого массива. Проблема в том, что если закоментить ShowMessage(""); то отображается только последняя итерация. Подскажите как сделать так чтобы итерации выводились последовательно, друг за другом. Спасибо