- procedure TForm1.FormCreate(Sender: TObject);
- begin
- if not InitOpenGL then Application.Terminate;
- DC:= GetDC(Panel1.Handle); <------------------------------- Hier knallts
- Application.OnIdle:= IdleHandler;
- RC:= CreateRenderingContext( DC,
- [opDoubleBuffered],
- 32,
- 24,
- 0,0,0,
- 0);
- ActivateRenderingContext(DC, RC);
- SetupGL;
- Init;
- end;