Frame в delphi

[bosyak]

Здравствуйте, не могли бы вы помочь в решении проблемы
у меня есть класс
TFrameViev = class(TFrame);
мне нужно при создании программы размещать на форме этот фрейм
Вот код размещения:

...
frame:TFrameViev;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
 frame.Create(self);
 frame.Parent:=form1;
 frame.Align:=alClient;

end;

Однако когда я компилирую программу, программа ругается на ошибку доступа, пример ошибки в скрине

реализация TFrameViev выглядит так

unit frame;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Menus,
  Forms, Dialogs, ExtCtrls,dglopengl,funct, Vcl.AppEvnts;

type
  TFrameViev = class(TFrame)
   procedure AppEventsIdle(Sender: TObject; var Done: Boolean);

 protected
    class var
      FPixelFormat:integer;
    var
      FDC:HDC;
      FRC:HGLRC;
    class constructor Create;
    procedure SetupRC;
  public
    procedure OnCreate( var msg:TMessage ); message WM_CREATE;
    procedure OnDestroy( var msg:TMessage ); message WM_DESTROY;
    procedure OnPaint( var msg:TWMPaint ); message WM_PAINT;
    procedure OnEraseBackground( var msg:TMessage ); message WM_ERASEBKGND;
    procedure OnSize( var msg:TMessage ); message WM_SIZE;
    procedure Render;
  end;


implementation

{ TProfile3d }


{ TFrameviev }

procedure TFrameViev.AppEventsIdle(Sender: TObject; var Done: Boolean);
begin
  Render;
  Done := false;
end;

class constructor TFrameViev.Create;
begin
   FPixelFormat := 0;
end;

procedure TFrameViev.OnCreate(var msg: TMessage);
begin
   FDC := GetDC( Handle );
  SetDCPixelFormat(FDC);
  FRC := wglCreateContext( FDC );
  wglMakeCurrent( FDC, FRC );
  SetupRC;
end;

procedure TFrameViev.OnDestroy(var msg: TMessage);
begin
  wglMakeCurrent( 0, 0 );
  wglDeleteContext( FRC );
  ReleaseDC( Handle, FDC );
end;

procedure TFrameViev.OnEraseBackground(var msg: TMessage);
begin
  msg.Result := 1;
end;

procedure TFrameViev.OnPaint(var msg: TWMPaint);
  var ps:TPaintStruct;
begin
  BeginPaint( Handle, ps );
  Render;
  EndPaint( Handle, ps );
end;

procedure TFrameViev.OnSize(var msg: TMessage);
begin
  glViewport( 0,0, LOWORD(msg.LParam), HIWORD(msg.LParam));
  glMatrixMode( GL_PROJECTION );
  glLoadIdentity;
  gluPerspective( 45, LOWORD(msg.LParam)/HIWORD(msg.LParam), 1.0, 101.0 );
  glMatrixMode( GL_MODELVIEW );
  glLoadIdentity;
  InvalidateRect( Handle, nil, false );
end;

procedure TFrameViev.Render;
begin
  glClearColor(0,0,0,0);
  glClear( GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT );

  SwapBuffers( FDC );
end;

procedure TFrameViev.SetupRC;
begin
  glClearColor( 0.5, 0.5, 0.5, 1.0 );
  glEnable( GL_DEPTH_TEST );
end;

end.

[evg_m]

///frame:TFrameViev;
...
procedure TForm1.FormCreate(Sender: TObject);
var
frame:TFrameViev;
begin
 frame:=TFrameViev.Create(self);
 frame.Parent:=form1;
 frame.Align:=alClient;

end;

[bosyak]

Сообщение от evg_m

///frame:TFrameViev;
...
procedure TForm1.FormCreate(Sender: TObject);
var
frame:TFrameViev;
begin
 frame:=TFrameViev.Create(self);
 frame.Parent:=form1;
 frame.Align:=alClient;

end;

блин не заметил,глупая ошибка,спасибо! Однако теперь стала вылазить еще более непонятная проблема, resource TFrameViev not found
Хотя форма этого фрейма есть .dfm

[bosyak]

проблема решилась добавление после
implementation
этой строки
{$R *.dfm}
однако ошибка доступа все же осталась
появляется форма, однако она какая то прозрачная пример на скрине

[bosyak]

Нашел источник проблемы однако как решить не знаю
Ошибка доступа выскакивает когда я присваиваю Frame.parent

[Аватар]

Переменная Form1 инициализирована?

[bosyak]

...
Form1:TForm1
...

Все я решил проблему, спасибо, могу показать решение.
Form1 моя главная форма, и я в ее инициализации писал код

[Аватар]

Form1 вообще-то всего лишь указатель на форму. И значение в него нужно присвоить. Если форма создается автоматически, то там присваивается. При программном создании программист должен позаботиться о содержимом глобальной переменной Form1, если собирается её использовать. Это так, по поводу Form1 моя главная форма

[Vapaamies]

На самом деле это быдлокод. В методах класса нельзя обращаться к экземплярам класса через внешние (глобальные) переменные. Должно быть так:

begin
  ...
  frame.Parent := Self; // или (Sender as TComponent)
end;

[phomm]

В методах класса старайтесь не использовать подобные переменные (ссылки на экземпляры того же класса) никогда ! В случае необходимости, как тут - используйте псевдоидентификатор Self указывающий на объект (экземпляр класса) для которого сейчас выполняется метод класса.
Тем более, что Вы же его(селф) вот строчкой выше используете.
И не забывайте пользоваться отладкой с евалюэйшеном - при наведении мыши на идетификатор при запаузеной программе или полноценные Watches
Читайте мануал по грамотной работе с отладкой тут http://www.delphikingdom.ru/asp/view...catalogid=1392 (глава 2) и вообще можно всю статью почитать, и вообще можно хоть всего GunSmoker'a прочитать.

P.S. Долго печатал, Vapaamies чуть опередил.