【控件功能】我来做练习-第32课-Delphi OpenGL 3D objects

Delphi OpenGL 3D objects

提示：3D物体

核心源码

提示：这里可以添加技术整体架构

procedure glBindTexture(target: GLenum; texture: glUint); stdcall;
external opengl32;

procedure TForm1.FormResize(Sender: TObject);
begin
if (Height = 0) then
Height := 1;
glViewport(0, 0, Width, Height);
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluPerspective(45.0, Width / Height, 1.0, 100.0);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
gluDeleteQuadric(MyObject);
wglMakeCurrent(Canvas.Handle, 0);
wglDeleteContext(GLContext);
end;

procedure TForm1.FormCrea