- ...
- uses OpenGl
- ...
- procedure TForm1.Button1Click(Sender: TObject);
- var BitmapContext : HGLRC;
- begin
- BitmapContext:=CreateRenderingContext(PaintBox1.Canvas.Handle,[],32,0);
- ActivateRenderingContext(PaintBox1.Canvas.Handle,BitmapContext);
- Label1.Caption := glGetString(GL_VERSION);
- DeactivateRenderingContext;
- DestroyRenderingContext(BitmapContext);
- end;