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

[spamer]

Вообщем создаю компонент. Компонент есть наследником TCustomControl. Вроде все более ли менее работает. Но есть один баг, из-за которого вылетает вся программа.
Вот например:
есть деструктор такого вида

destructor TPDM3DLable.Destroy;
begin
  inherited;
  //GLSUnloadOpenGL;
  KillTimer(Self.Handle, 1);
end;

сейчас из-за того, что я указываю Self.Handle, программа будет вылетать со следующей ошибкой


если же написать тот же деструктор, допустим вот так

destructor TPDM3DLable.Destroy;
begin
  inherited;
  //GLSUnloadOpenGL;
  KillTimer(0, 1);
end;

то ошибки никакой не будет, и все будет нормально (вроде) работать.

Все тоже самое и с конструктором. Есть некая процедура в которой используется Self.Handle и если я ее вызываю в конструкторе, то сразу же летит ошибка приведенная выше.
Народ, подскажите, почему нельзя использовать Self.Handle в конструкторе и деструкторе? Или может я что то не так делаю, подскажите?

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

в деструкторе своего класса наследуемый деструктор вызываем в конце а не в начале.

[spamer]

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

в деструкторе своего класса наследуемый деструктор вызываем в конце а не в начале.

Пробовал я так и в конструкторе и в деструкторе , все равно ошибка вылетает
Только вот не пойму, ну что не правильно я делаю?

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

стоп...а Handle чем заполняется то?
случаем с оконным хендлом не путаете?
ведь именно оно содержится в этом св-ве

[spamer]

Сам конструктор

constructor TPDM3DLable.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  ...

end;

А вот так я его вызываю

MyObject := TPDM3DLable.Create(self);

Следовательно, это получается тогда, что Handle'у моего компонента присваивается Handle окна в моем случае ?
з.ы. я что то вообще уже запутался (((

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

или его собственный, но уж точно не хендл таймера

[spamer]

А что в таких случаях можно сделать?
Кстати, а если тут использую этот же Self.Handle в конструкторе:

  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);

то все равно ошибка ведь вылетает. Но по идее Handle должен указывать на мой контрол?
Может знаете, как исправить данный баг?

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

попробуйте другого предка(TWinControl например)
пока не нашел компонента основанного на TCustomControl
а после С++ не могу вспомнить его смысл

[spamer]

Предка пробовал менять, но положительного результата я не добился.
TWinControl - не подходит тем, что в нем нету Canvas, а вот TCustomControl - это предок TWinControl'a только с добавленным полем Canvas, так что по сути нету смысла менять предка, я так понимаю.
Ну вот например, на TCustomControl по большому счету основан TPanel, хоть на самом деле у TPanel есть промежуточный класс TCustomPanel, но я думаю это не столь важно (этот промежуточный класс).
Кто что еще может посоветовать?

[raxp]

предпочитаю так...

constructor Tpgl.Create(AOwner: TComponent);
begin
 inherited Create(aowner);

 FInterval:= 50;
 ftimer:= ttimer.Create(self);
 ftimer.Enabled := false;
 ftimer.interval:= FInterval;
 ftimer.ontimer := ind;
 ftimer.Enabled := true;
 factive := true; 
end;

destructor Tpgl.Destroy;
begin
 ftimer.Free;

 inherited
end;

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