number_child(N)

panel 1
button 2 : parent 2,1
message str$(parent(2))
end

rem ============================================================================
rem                      IsChild(pere,fils)
rem ============================================================================
rem      Détermine si oui ou non l’objet pere est parent de l’objet fils
rem ============================================================================
rem      _________________________________________________
rem     |                                                 |
rem     |  dll_call2("IsChild",handle(pere),handle(fils)) |
rem     |_________________________________________________|
rem
rem     Si le résultat vaut 1, FILS est enfant de PERE
rem     Autrement dit : PERE est PARENT de FILS
rem ============================================================================
' Exemple d'utilisation
dim i
caption 0,"FORM 0"
panel 5 : caption 5,"PANEL 5"
combo 8 : left 8,200 : top 8,20 : text 8,"COMBO 8"
form 10 : top 10,150 : left 10,100 : caption 10,"FORM 10"
for i = 11 to 13
    button i : parent i,10 : top i,50 : left i,10+ (i-11)*100 : caption i,"Bouton "+ str$(i)
next i
' Appels
 IsChild(10,12)  : ' <--- 12 est        fils de 10
 IsChild(0,13)   : ' <--- 13 n'est pas  fils de 0
 IsChild(0,10)   : ' <--- 10 n'est pas  fils de 0
 IsChild(10,11)  : ' <--- 11 est        fils de 10
 IsChild(0,5)    : ' <---  5 est        fils de 0
 IsChild(0,8)    : ' <---  8 est        fils de 0
 IsChild(100,30) : ' <---  Ces objets n'existent pas !
end
rem ============================================================================
SUB IsChild(pere,fils)
    if object_exists(pere) <> 1 or object_exists(fils) <> 1
       message "Les objets " + str$(pere) + " et/ou " + str$(fils) + " n'existent pas !!!" : exit_sub
    end_if
    dll_on "user32"
    if dll_call2("IsChild",handle(pere),handle(fils)) = 1
       message "L'objet : " + str$(fils) + " est un enfant de l'objet : " + str$(pere)
    else
       message "L'objet : " + str$(fils) + " n'est pas un enfant de l'objet : " + str$(pere)
    end_if
    dll_off
END_SUB
rem ============================================================================

' Test pour connaitre le nombre d'objet rattaché  à un PARENT n%

DIM n% , p% , nb%

BUTTON 1 : PARENT 1,0 : LEFT 1,5 : TOP 1,5
PANEL 4 : PARENT 4,0 : LEFT 4,5 : TOP 4,50
  BUTTON 5 : PARENT 5,4 : LEFT 5,5 : TOP 5,5
  BUTTON 8 : PARENT 8,4 : LEFT 8,100 : TOP 8,5
ALPHA 10 : PARENT 10,0 : LEFT 10,100 : TOP 10,5 : CAPTION 10,"test"

' Test sur les objets jusqu'a 10 àpour trouvé les objets rattachés au parent p%
p%=4
FOR n%=0 TO 10
   IF n%<>p%                                                  : ' si l'objet n'est pas le parent recherché  en continue
      IF OBJECT_EXISTS(n%)=1 AND PARENT(n%)=p% THEN nb%=nb%+1 : ' si l'objet existe et et bien rattaché au parent p%
   END_IF
NEXT n%

MESSAGE "Il y a "+STR$(nb%)+" objet(s) rattaché(s) au parent numéro "+STR$(p%)

END

' Test pour connaitre le nombre d'objet rattaché  à un PARENT n%

DIM n% , p% , nb%

BUTTON 1 : PARENT 1,0 : LEFT 1,15 : TOP 1,5
PANEL 4 : PARENT 4,0 : LEFT 4,5 : TOP 4,50
  BUTTON 5 : PARENT 5,4 : LEFT 5,5 : TOP 5,5
  BUTTON 8 : PARENT 8,4 : LEFT 8,100 : TOP 8,5
ALPHA 10 : PARENT 10,0 : LEFT 10,100 : TOP 10,5 : CAPTION 10,"test"

' Test pour trouver les objets rattachés au parent p%
p%=4
MESSAGE "Il y a "+STR$(NUMBER_CHILD(p%))+" objet(s) rattaché(s) au parent numéro "+STR$(p%)

END
fnc NUMBER_CHILD(obj%)
   dim_local i%,o%,child%
   repeat
      i%=i%+1
      if object_exists(i%)=1
         o%=o%+1
         if parent(i%)=obj% then child%=child%+1
      end_if
   until o%=number_objects
   result child%
end_fnc

dim_local v1cm%
   NPP%=0
   for v1cm% = 1 to 4
      if parent(v1cm%*10+1490)=1410
         NPP%=NPP%+1
      end_if
   next v1cm%