OpenGL - Exception bei Ausführen...

[J_M]

Hallo Leute,

ich fange gerade an, mich mit OpenGL auseinander zu setzen und dachte - schlau wie Schlange - an ein Tutorial.

Ich habe das von Mr_T genommen, was ich bis zum zweiten Teil nachgemacht habe. Aber das Programm stürzt immer beim Ausführen ab.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.myDC := GetDC(Handle);     // DC: Device Context
SetupPixelFormat;
myRC := wglCreateContext(myDC);
wglMakeCurrent(myDC, myRC);
glEnable(GL_DEPTH_TEST);        //<--- Exception wird ausgelöst!
glLoadIdentity;
end;

Davor findet nur Delkaration statt...:

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, opengl15, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
    myDC: HDC;
    myRC: HGLRC;
    myPalette: HPALETTE;
    procedure SetupPixelFormat;
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Kann mir irgendjemand sagen, was ich falsch mache? Bei anderen funktioniert es ja...