ich habe eine Thread-CRT Class auf einem Tabpage welche eine OW Menu
hat. Nun ist es mir durchaus klar das ich den Thread erst "stoppen" muss
,der auf der Tabpage ist, bevor ich die Tabpage selbst :destroy() kann.
Nun scheint es aber so das ich auch die OW Menus (incl. Submenu) vorher
:destroy() muss, den wenn es die Tabpage:destroy selbst aufruft "hängt"
er am "recursiven" aufruf ?!
Code: Alles auswählen
RETURN ::XbpMenu:Destroy() // hier im OW Menu hängt er bei recursiv ?
Nun muss ich also erst per Childlist() die OW Menus :destroy(), dann
das oThread:oCrt Object bevor ich den Thread selbst terminieren kann
um die Tabpage zu zerstören :
Code: Alles auswählen
FOR i = 1 TO iMax // alle Tabpages
// evtl. Childs auf der Tabpage ?
aCrt := aTabObj[i]:Childlist()
IF LEN(aCrt) > 0
// zuerst die "Child Objecte" zerstören
jMax := LEN(aCrt)
// das sind die OW Menus
FOR j = jMax TO 2 STEP -1
aCrt[j]:Destroy()
NEXT
// nur kontrolle
aCrt := aTabObj[i]:Childlist()
ALTD()
// jetzt den Thread selbst
// oThread:oCrt:destroy()
// oThread:setInterval( NIL )
// oThread:destroy()
// o = NIL
DO CASE
CASE i = 1 ; oArtikel:oCrt:destroy() ; oArtikel:setInterval( NIL ...
...
CASE i = 7 ; oEnde:oCrt:destroy() ; oEnde:setInterval( NIL...
ENDCASE
ENDIF
// jetzt den TabPage zerstören
aTabObj[i]:Destroy()
NEXT
gruss by OHR
Jimmy