在TForm中应用OpenGL

一 新建一工程，设保存为OpenGLApp.dpr,窗口为Form1

二 在Form1中加入Panel1和Button1,unit1.pas代码为

unit Unit1;

interface

uses

Windows,messages,Sysutils,classes,graphics,controls,Forms,Dialogs,OpenGL,Exectrs,Stdctrls;

type

TForm1=class(TForm)

Panel1:TPanel;

Button1:TButton;

procedure FormCreate(Sender:TObject);

procedure PanelResize(Sender:TObject);

procedure FormDestroy(Sender:TObject);

procedure FormKeyPress(Sender:TObject;var key:char);

procedure Button1Click(Sender:TObject);

private

rc:HGLRC;

dc:HDC;

ElapsedTime,AppStart,LastTime:dword;

procedure glDraw;

procedure Idle(Sender:TObject;var Done:boolean);

public

end;

var

Form1:TForm1;

implementation

{$R *.DFM}

procedure TForm1.glDraw()

begin

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glLoadIdentity();

glTranslatef(0,0,-4);

glRotatef(ElapsedTime/10,0,1,0);

glBegin(GL_TRIANGLES);

glColor3f(1,00); glVertex(-1,-1,0);

glColor3f(0,10); glVertex(1,-1,0);

glColor3f(0,0,1); glVertex(0,1,0);

glEnd()

end;

//OpenGL初始化

procedure glInit()

begin

glClearColor(0.0,0.0,0.0,0.0);

glShadeModal(GL_SMOOTH);

glClearDepth(1.0);

glEnable(GL_DEPTH_TEST);

glDepthFunc(GL_LESS);

glHint(GL_DEPSPECTIVE_CORRECTION_HINT,GL_NICEST);

end;

procedure TForm1.FormCreate(Sender:TObject);

var pfd:TPIXELFormatDescriptor;

pf:integer;

begin

dc :=GetDC(Panel1.Handle);

pfd.nSize :=sizeof(pfd); //让Panel1获取句柄

pfd.dwFlags:=PFD_DRAW_TO_WINOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER or 0);

pfd.ColorBits :=32;

pf :=ChoosePixelFormat(dc,@pfd);

SetPixelFormat(dc,pf,@pfd);

rc :=wglCreateContext(dc);

wglMakeCurrent(dc,rc);

glInit;

PanelResize(Sender);

AppStart :=GetTickCount();

Application.OnIdle :=Idle;

end;

procedure TForm1.FormDestroy(Sender:TObject);

begin

wglMakeCurrent(0,0);

wglDeleteContext(rc);

end;

procedure TForm1.Idle(Sender:TObject;var Done:Boolean);

begin

Done :=False;

LastTime :=ElapsedTime;

ElapsedTime :=GetTickCount()-AppStart;

glDraw();

SwapBuffers(DC);

end;

procedure TForm1.Resize(Sender:TObject);

begin

glVewport(0,0,Penel1.Width,panel1.Height);

glMatrixMod(GL_PROJECTION);

glLoadIdentity();

gluPerspective(45,0,Panel1.Width/Panel1.Height,1,0,500.0);

glMatrixMode(GL_MODEVIEW);

end;

procedure TForm1.FormKeyPress(Sender:TObject;var Key:char);

begin

if key=#27 then

Close;

end;

procedure TForm1.Button1Click(Sender:TObject);

begin

Close;

end;

end.