Использование Self.Handle при создании и уничтожении компонента

[NervniiJ]

В деструктуре Inherited вызывай после KillTimer(Handle, 1);
В противном случае, твоя "бага" - имеет право на жизнь.

[spamer]

raxp, я вот тоже еще до создания этой темы использовал ваш способ работы с Таймером, а потом чего то дернуло в сообщении обрабатывать. Ну да ладно, все равно спасибо, пускай будет TTimer...
У меня к вам еще вопрос, вы вот написали

компоненты под opengl наследую обычно от tpanel.

посмотрев класс TPanel я увидел, что там только декларации свойств из класса TCustomPanel. Так вот, может быть мене есть смысл лучше унаследовать свой компонент именно от TCustomPanel?

NervniiJ, спс конечно, но это я уже понял из 2го поста, за что спасибо Пепел Феникса

[raxp]

еще, в комопнентах использую такую конструкцию:

 if FTimer<>0 then timeKillEvent(FTimer);
 ...
и
 ...
  FTimer:= timeSetEvent(Interval,0,@RemoteTimeProc,DWORD(Self),TIME_PERIODIC);
  Win32Check(FTimer<>0)

тоже стабильно себя ведет... что касаемо tpanel, вы правы можно и TCustomPanel... просто с первым мне удобнее по части обработки событий, например мышки.

[spamer]

Ну вот с Таймер вроде разобрался
С классом родителем также вроде разобрался.
А вот насчет процедуры установки формата пикселя еще есть вопрос:
Есть процедура GLSSetPixelFormat;

  
  ...

  fHDC := GetDC(Self.Handle);
  PF := ChoosePixelFormat(fHDC, @PFd);
  if PF <> 0 then SetPixelFormat(fHDC, PF, @PFD);
  fHGLRC := wglCreateContext(fHDC);
  if fHGLRC <> 0 then wglMakeCurrent(fHDC, fHGLRC);

и все тот же Self.Handle - когда я вызываю данную процедуру в конструкторе, то вылазит таже самая ошибка, что я приводил в 1м посте. Как с этим бороться? И вообще, где лучше вызывать процедуру настройки формата пикселя?

[Пепел Феникса]

а можно весь конструктор увидеть?

[spamer]

Сообщение от Пепел Феникса

а можно весь конструктор увидеть?

Конечно можно

constructor TPDM3DLable.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Self.Height := 120;
  Self.Width := 300;
  fAngelX := 0;
  fAngelY := 0;
  fCornerVision := CGL_CORNER_VISION;
  fScale := 1;
  fDistanceLines := CGL_DEFAULT_DISTANCE_LINES;
  fDistanceSymbols := CGL_DEFAULT_DISTANCE_SMBOLS;
  Self.Canvas.Font.Height := CGL_FONT_HEIGHT;
  fFontName := CGL_FONT_NAME;
  fFontSize := CGL_DEFAULT_FONT_SIZE;
  fFontCharset := Self.Font.Charset;
  fText := TStringList.Create;
  fText.Add('Привет');
  fCountLines := CGL_COUNT_LINES;
end;

[Пепел Феникса]

в конструкторе в хендлом проблемы(вспомнил свою проблему, но я о ней не писал) вам нужно сообщение WM_CREATE обрабатывать

  Self.Height := 120;
  Self.Width := 300;

дурной тон, установите у св-в default нужное(Рэй Конопка неплохо описал о компонентах)

[пауэрлифтинг]

при создании MyObject := TPDM3DLable.Create(self);
вместо self пиши родителя (form1 например)

попробуй так Self.parent.Handle или Tform(Self).parent.Handle

[raxp]

...и добавлю, createdc лучше в wmpaint перенести:

procedure Tpgl.WMPaint(var Msg: TWMPaint);
var ps: TPaintStruct;
begin
 BeginPaint(Handle, ps);

 if DC=0 then CreateDC;
 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  ...
бла-бла-бла
  ...
   
 SwapBuffers(DC);
 EndPaint(Handle, ps)
end;

procedure Tpgl.CreateDC;
var nPixelFormat: Integer;
    pfd: TPixelFormatDescriptor;
begin
 DC:= GetDC(handle);

 FillChar(pfd,SizeOf(pfd),0);
 with pfd do begin
  nSize     := sizeof(pfd);
  nVersion  := 1;
  dwFlags   := PFD_DRAW_TO_WINDOW or
               PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER
               or PFD_GENERIC_ACCELERATED ;
  iPixelType:= PFD_TYPE_RGBA;
  cColorBits:= 32;
  cDepthBits:= 32;
  iLayerType:= PFD_MAIN_PLANE;
 end;
 nPixelFormat:= ChoosePixelFormat(DC, @pfd);
 SetPixelFormat(DC,nPixelFormat,@pfd);
 hrc:= wglCreateContext(DC);
 wglMakeCurrent(DC, hrc);

 CreateGLFont;
...

и почему-бы просто handle не использовать.

[spamer]

вам нужно сообщение WM_CREATE обрабатывать

Хорошо, попробую отпишусь.

дурной тон, установите у св-в default нужное

Это я понял. Просто сейчас все на скорую руку клепаю

(вспомнил свою проблему, но я о ней не писал)

А проблема похожа на мою? Как вы ее решили, обрабатывая сообщение WM_CREATE ?

EDIT:
Пока писал свой пост, появилось еще два новых. Спасибо народ. Сейчас буду что то пробовать. Потом отпишусь.

и почему-бы просто handle не использовать.

Собственно не знаю. Привычка может такая...))) Разницы же вроде нету.?