procedure TForm1.FormCreate(Sender: TObject);
var
　pfd:TPIXELFORMATDESCRIPTOR;
 pixelFormat: Integer;
begin
 With pfd do
 begin
  nSize := sizeof(TPIXELFORMATDESCRIPTOR); // size
  nVersion := 1; // version
  dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER; // support double-buffering
  iPixelType := PFD_TYPE_RGBA; // color type
  cColorBits := 24; // preferred color depth
  cRedBits := 0;
  cRedShift := 0; // color bits (ignored)
  cGreenBits := 0;
  cGreenShift := 0;
  cBlueBits := 0;
  cBlueShift := 0;
  cAlphaBits := 0;
  cAlphaShift := 0; // no alpha buffer
  cAccumBits := 0;
  cAccumRedBits := 0; // no accumulation buffer,
  cAccumGreenBits := 0; // accum bits (ignored)
  cAccumBlueBits := 0;
  cAccumAlphaBits := 0;
  cDepthBits := 16; // depth buffer
  cStencilBits := 0; // no stencil buffer
  cAuxBuffers := 0; // no auxiliary buffers
  iLayerType := PFD_MAIN_PLANE; // main layer
  bReserved := 0;
  dwLayerMask := 0;
  dwVisibleMask := 0;
  dwDamageMask := 0;
 end;
 FDC := GetDC(Handle);
 pixelFormat := ChoosePixelFormat(FDC, @pfd);
 if pixelFormat = 0 then
  Exit;
 if not SetPixelFormat(FDC, pixelFormat, @pfd) then
  Exit;
 FHRC := wglCreateContext(FDC);
 wglMakeCurrent(FDC, FHRC);
 // 设置背景色为 黑色 参数为 RGBA
 glClearColor(0, 0, 0, 0);
 // 设置视图投影变换矩阵 正投影
 glMatrixMode(GL_PROJECTION);
 // 重置当前指定的矩阵为单位矩阵
 glLoadIdentity;
 // 指定OpenGL在此区域内绘图
 glViewPort(0, 0, ClientWidth, ClientHeight);
 // 设置世界坐标系的范围
 gluOrtho2D(0, ClientWidth, ClientHeight, 0);
 // 将矩阵变换对象切换为模型视图变换
 glMatrixMode(GL_MODELVIEW);
 // 重置当前指定的矩阵为单位矩阵
 glLoadIdentity;
end;

procedure TForm1.Draw;
begin
 // 清空缓冲区
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 // 清空缓冲区
 glColor3ub(0, 255, 0);
 glBegin(GL_TRIANGLES);//告诉OpenGL将要绘制三角形
 glVertex2f(200, 300); //传输三角形的三个顶点坐标给OpenGL
 glVertex2f(400, 300);
 glVertex2f(300, 150);
 glEnd; //结束图元的绘制。
 SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
end;

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, OpenGL;
type
 TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure FormPaint(Sender: TObject);
  procedure FormResize(Sender: TObject);
 private
  { Private declarations }
  FDC: HDC;
  FHRC: HGLRC;
  procedure Draw;
 public
  { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Draw;
begin
 // 清空缓冲区
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 // 清空缓冲区
 glColor3ub(0, 255, 0);
 glBegin(GL_TRIANGLES);//告诉OpenGL将要绘制三角形
 glVertex2f(200, 300); //传输三角形的三个顶点坐标给OpenGL
 glVertex2f(400, 300);
 glVertex2f(300, 150);
 glEnd; //结束图元的绘制。
 SwapBuffers(FDC); //交换双缓冲区内容，这将把刚绘制的图形翻印到屏幕上。
end;
procedure TForm1.FormCreate(Sender: TObject);
var
　pfd:TPIXELFORMATDESCRIPTOR;
 pixelFormat: Integer;
begin
 With pfd do
 begin
  nSize := sizeof(TPIXELFORMATDESCRIPTOR); // size
  nVersion := 1; // version
  dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER; // support double-buffering
  iPixelType := PFD_TYPE_RGBA; // color type
  cColorBits := 24; // preferred color depth
  cRedBits := 0;
  cRedShift := 0; // color bits (ignored)
  cGreenBits := 0;
  cGreenShift := 0;
  cBlueBits := 0;
  cBlueShift := 0;
  cAlphaBits := 0;
  cAlphaShift := 0; // no alpha buffer
  cAccumBits := 0;
  cAccumRedBits := 0; // no accumulation buffer,
  cAccumGreenBits := 0; // accum bits (ignored)
  cAccumBlueBits := 0;
  cAccumAlphaBits := 0;
  cDepthBits := 16; // depth buffer
  cStencilBits := 0; // no stencil buffer
  cAuxBuffers := 0; // no auxiliary buffers
  iLayerType := PFD_MAIN_PLANE; // main layer
  bReserved := 0;
  dwLayerMask := 0;
  dwVisibleMask := 0;
  dwDamageMask := 0;
 end;
 FDC := GetDC(Handle);
 pixelFormat := ChoosePixelFormat(FDC, @pfd);
 if pixelFormat = 0 then
  Exit;
 if not SetPixelFormat(FDC, pixelFormat, @pfd) then
  Exit;
 FHRC := wglCreateContext(FDC);
 wglMakeCurrent(FDC, FHRC);
 // 设置背景色为 黑色 参数为 RGBA
 glClearColor(0, 0, 0, 0);
 // 设置视图投影变换矩阵 正投影
 glMatrixMode(GL_PROJECTION);
 // 重置当前指定的矩阵为单位矩阵
 glLoadIdentity;
 // 指定OpenGL在此区域内绘图
 glViewPort(0, 0, ClientWidth, ClientHeight);
 // 设置世界坐标系的范围
 gluOrtho2D(0, ClientWidth, ClientHeight, 0);
 // 将矩阵变换对象切换为模型视图变换
 glMatrixMode(GL_MODELVIEW);
 // 重置当前指定的矩阵为单位矩阵
 glLoadIdentity;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 wglMakeCurrent(FDC, FHRC);
 wglDeleteContext(FHRC);
 ReleaseDC(Handle, FDC);
end;
procedure TForm1.FormPaint(Sender: TObject);
begin
 Draw;
end;
procedure TForm1.FormResize(Sender: TObject);
begin
 // 窗口改变大小时重新指定绘图区域
 glClearColor(0, 0, 0, 0);
 glMatrixMode(GL_PROJECTION);
 glLoadIdentity;
 glViewPort(0, 0, ClientWidth, ClientHeight);
 gluOrtho2D(0, ClientWidth, ClientHeight, 0);
 glMatrixMode(GL_MODELVIEW);
 glLoadIdentity;
end;
end.