Есть такой код:
procedure TForm1.FormCreate(Sender: TObject);
var
pfd:TPixelFormatDescriptor;
nPixelFormat: Integer;
begin
FillChar(pfd, sizeof(pfd), 0);
nPixelFormat:=ChoosePixelFormat(Form1.Canvas.Handle, @pfd);
SetPixelFormat(Form1.Canvas.Handle, nPixelFormat, @pfd);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
hrc:HGLRC;
begin
hrc:=wglCreateContext(Form1.Canvas.Handle);
wglMakeCurrent(Form1.Canvas.Handle,hrc);

//Рисование

wglMakeCurrent (0,0);
wglDeleteContext(hrc);

На форме он все рисует как надо. Но мне надо нарисовать на PaintBoxe. Для этого пробовал все Form1.Canvas.Handle заменить на Form1.PaintBox1.Canvas.Handle, ни фига не работает. Подскажите в чем проблема.

| Сообщение посчитали полезным: