GetParent : Utile pas pour deux sous

rem ============================================================================
rem                  GetParent
rem     Retrouver le handle du parent d un  objet
rem ============================================================================
rem La commande PARENT N,M établit un lien entre l objet système désigné par
rem son numéro M et l objet système désigné par son numéro N.
rem Mais on ne dispose pas de la commande réciproque qui retourne le PARENT d un
rem objet fils.
rem La fonction Getparent de la USER32.DLL donne le handle du parent d un objet
rem fils dont on donne le handle comme paramètre.
rem ============================================================================
' Paramètre : hwnd% handle de l'objet dont on cherche le parent
' En cas de succès, la fonction retourne le handle du parent.
' Si l'objet n'a pas de parent, la fonction retourne 0
rem ============================================================================

dim i,hwnd%,parent%,tex$
form 10 : height 10,400 : top 10,50 : left 10,50 : caption 10,"Options" : ' On défini un FORM
for i = 11 to 20  : ' On défini 10 objets OPTION dont le parent est FORM 10
    option i : parent i,10 : top i,(i-10)*30 : caption i,"Option " + str$(i)
next i
hwnd% = handle(11) : ' C'est l' objet 11 (par exp) dont on veut chercher le parent
dll_on "user32"
parent% = dll_call1("GetParent",hwnd%) : ' Déterminer le handle du parent de OPTION 11
' Vérifier que GetParent retourne bien le handle du père.
if parent% = handle_form("Options")
   tex$ = "Le handle du parent de OPTION 11 est : " + str$(parent%) + " qui est celui de FORM 10 : " + str$(handle(10))
   tex$ = tex$ + chr$(13) + " C'est-à-dire que OPTION 11 est le fils de FORM 10"
   message tex$
else
   message "Parent inconnu !"
end_if
rem ============================================================================