Code : Tout sélectionner
Procedure Tree_GetParent(gadget.l,item.l)
hItem.l = GadgetItemID(gadget.l, item)
hParent.l = SendMessage_(GadgetID(gadget.l), #TVM_GETNEXTITEM, #TVGN_PARENT, hItem)
ParentNumber.l = TreeGadgetItemNumber(gadget.l, hParent)
ProcedureReturn ParentNumber
EndProcedure
Mais j'y arrive pas donc j'en appelle à vous !Fred a écrit : - removed: TreeGadgetItemNumber() - can be easily emulated by GadgetItemID()+a run trough the item list