Библиотека для работы с 3D графикой

// на форме есть такие компоненты
TEdit *EditVpX;
TEdit *EditVpY;
TEdit *EditVpW;
TEdit *EditVpH;
 
TComboBox *ComboControlMode;
TComboBox *ComboCameraMode;

ComboControlMode->Items->Text = "Mouse\n"
                    "Joystick";
ComboCameraMode->Items->Text = "Camera after object\n"
                    "Camera behind object\n"
                    "Camera from object\n"
                    "Camera without object\n";

xplayer *TXPlayer::CreateXPlayer(BBPivot plane, BBTerrain terr) {
        
        /*
            код по созданию объекта, убрал для наглядности
        */
        // тип управления объектом будем брать, в зависимости от того,
        // какой элемент Комбо выбран
        TControlMode *AControlMode = TControlMode(ComboControlMode->Items->ItemIndex + 1);
        // также делаем и с привязкой камеры
        TCameraMode *ACameraMode = TCameraMode(ComboCameraMode->Items->ItemIndex + 1);
        
        // заполняем данные текущего игрока
        // тип управления
        p->ControlMode = AControlMode;
        // тип привязки камеры
        p->CameraMode = ACameraMode;
                
        // определяем окно камеры по данным Edit'ов
        bbCameraViewport(p->camera, EditVpX->Text.ToIntDef(0), EditVpY->Text.ToIntDef(0), 
        EditVpW->Text.ToIntDef(800), EditVpH->Text.ToIntDef(600));
        /*
            код по настройке камеры
        */
        
        return p;
}

void __fastcall TForm1::Button1Click(TObject *Sender) {
    ShellExecuteA(0, "open", "calc.exe", 0, 0, SW_SHOW);
    Sleep(100);
    HWND hWnd = FindWindowA(0,"Калькулятор");
    if (hWnd) {
        SetWindowPos(hWnd, HWND_TOP,
                            TabSheet1->Left,
                            TabSheet1->Top,
                            TabSheet1->Width,
                            TabSheet1->Height, SWP_SHOWWINDOW);
 
        HWND hNewHandle = ::SetParent(hWnd,TabSheet1->Handle);
        ShowWindow(hNewHandle,SW_RESTORE);
    }
}

HWND hWnd = Application->ActiveFormHandle;
   HWND masterhWnd = Form1->Handle;
        SetWindowPos(hWnd, HWND_TOP,
                            Form1->TabSheet1->Left,
                            Form1->TabSheet1->Top,
                            Form1->TabSheet1->Width,
                            Form1->TabSheet1->Height, SWP_SHOWWINDOW);
 
        HWND hNewHandle = ::SetParent(hWnd,Form1->TabSheet1->Handle);
        ShowWindow(hNewHandle,SW_RESTORE);
  bbGraphics3D(640,480,32,0);

    BBSound sound=bbLoadSound("123.mp3");
    //bbLoopSound sound;
    BBChannel channel=bbPlaySound(sound);

const HWND hWnd = (HWND)1234456;
const int iHandle = (int)hWnd;

while (!bbKeyHit(KEY_ESCAPE))

 BBSprite sunnyS = bbLoadSprite ("Res/sunA.bmp",1,DayRound);
//;Global sunny = CreateSprite (dayround)
//;ground_tex=LoadTexture("sun.jpg",2)
//;EntityTexture sunny, sun_tex
 bbScaleSprite (sunnyS, 400,400);
 bbMoveEntity (sunnyS, 3900, 0, 0);
 bbEntityAlpha (sunnyS,0);