Fehler beim Beenden des Programms

[Ironmaster]

hallo,

ich habe vor kurzem eine kleine Operation eingeleitet, die mein Programm so'n bißchen verfeinern soll. Dazu hab ich meine PageControl in eine weitere PageControl gelegt, sodass ich mehr übersichtlichkeit bekomm. Aber nun tritt ständig der folgende Fehler auf:

"Context not created"

bei dieser Prozedur bleibt er hängen:

Delphi-Quellcode:

procedure TGLContext.Activate;
begin
   if FActivationCount=0 then begin
      if not IsValid then
         raise EGLContext.Create(cContextNotCreated); //hier tritt der Fehler auf
      try
         DoActivate;
      except
//         if True then // ApplicationTerminated?
//            vIgnoreContextActivationFailures:=True
//         else
         raise;
      end;
      vCurrentGLContext:=Self;
   end else Assert(vCurrentGLContext=Self);
   Inc(FActivationCount);
end;

Der Fehler tritt aber auch nur beim Beenden des Programms auf.


Hat da irgendjemand einen schlauen Rat?

[dataspider]

Hi,

IsValid liefert halt False. Was verbirgt sich denn hinter IsValid?

Frank

[Ironmaster]

ich hab keine Ahnung. ich hab die Prozedur auch nur aus der Fehlersuche von Delphi rauskopiert. Bei mir öffnet sich neben der Registerkarte von Unit1, Unit2 etc. eine neue GLContext-Registerkarte, wo der Fehler eben gefunden wurde