Resize write FOnResize;
property OnPaint:TNotifyEvent read FOnPaint write FOnPaint;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents(’Samples’, [TGLPanel]);
end;
//---------------------------------------------
constructor TGLPanel.Create;
begin
inherited;
end;
//---------------------------------------------
procedure TGLPanel.WMDestroy(var Msg: TWMDestroy);
begin
wglMakeCurrent(0, 0);
wglDeleteContext(RC);
ReleaseDC(Handle, DC);
end;
//---------------------------------------------------
procedure TGLPanel.initDC;
begin
DC := GetDC(Handle);
PreparePixelFormat(DC);
end;
//---------------------------------------------------
procedure TGLPanel.initGL;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
glEnable(GL_LIGHTING);
glEnable(GL_LIGHT0);
glOrtho(-1, 1, -1, 1, -1, 50);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity;
glEnable(GL_DEPTH_TEST);
//注意下面这一行是为了做练习程序时可以直接用glColor指定材质而加的，
// 可能使得光照或表面材质发生意想不到的变化，
// 如果不需要可以去掉或在程序中用glDisable(GL_COLOR_MATERIAL);关闭
glEnable(GL_COLOR_MATERIAL);
glShadeModel(GL_SMOOTH);
gluLookAt(2, 4, 6, 0, 0, 0, 0, 1, 0);
SwapBuffers(DC);
end;
//---------------------------------------------
procedure TGLPanel.PreparePixelFormat(var DC: HDC);
var
PFD : TPixelFormatDescriptor;
ChosenPixelFormat : Integer;
begin
　　FillChar(PFD, SizeOf(TPixelFormatDescriptor), 0);

with PFD do
begin
　　nSize := SizeOf(TPixelFormatDescriptor);
　　nVersion := 1;
　　dwFlags := PFD_DRAW_TO_WINDOW or
　　PFD_SUPPORT_OPENGL or
　　PFD_DOUBLEBUFFER;
　　iPixelType := PFD_TYPE_RGBA;
　　cColorBits := 16; // 16位颜色
　　cDepthBits := 32; // 32位深度缓冲
　　iLayerType := PFD_MAIN_PLANE;
{ Should be 24, but we must allow for the clunky WKU boxes }
end;

ChosenPixelFormat := ChoosePixelFormat(DC, @PFD);
if ChosenPixelFormat = 0 then
　　Raise Exception.Create(’ChoosePixelFormat failed!’);
　　SetPixelFormat(DC, ChosenPixelFormat, @PFD);
end;

procedure TGLPanel.WMCreate(var Msg:TWMCreate);
begin
//在这里做初始化工作
//修改DC的象素格式，使之支持OpenGL绘制
initDC;
RC := wglCreateContext(DC);
wglMakeCurrent(DC, RC);
//初始化GL绘制系统
initGL;
if Assigned(FOnInit) then
begin
　if (wglMakeCurrent(DC,RC)=false) then
　　ShowMessage(’wglMakeCurrent:’ + IntToStr(GetLastError));
　　FOnInit(self);
　end;
end;
//
procedure TGLPanel.Paint;
begin
//TCustomPanel::Paint();
if Assigned(FOnPaint) then
　begin
　　wglMakeCurrent(DC,RC);
　　FOnPaint(self);
　　SwapBuffers(DC);
　end;
end;
//
procedure TGLPanel.Resize;
begin
　　inherited;
if Assigned(FOnResize) then
　begin
　　wglMakeCurrent(DC,RC);
　　glViewport(0,0,ClientWidth,ClientHeight);
　　FOnResize(self);
　　end;
　end;
end.

　　以上代码仅用来说明原理及建立一个基本的练习环境，您可以自由使用，转载请注明出处。如果使用从本人主页下载的TGLPanel请遵守内附使用说明的版权申明。如果实际做东西，建议使用Mike Lischke的GLScene控件组(http://www.lischke-online.de/)。