>I wrote a recursive function like below for get ObjecList. But there is a problem with array althought i defined the local array.
>
>Lparameters lcNesne
>Local ix as Integer
>AMembers(arrObjList, &lcNesne, 2)
>For ix = 1 to Alen(arrObjList)
> lcEval = lcNesne + '.' + arrObjList[m.ix]
> Insert into ObjectList (Liste, Sinif) values (lcEval, &lcEval..BaseClass)
>
> If &lcEval..BaseClass = 'Container'
> thisform.oList(lcEval)
> EndIf
>EndFor
>
>I tried to write this like below ;
>
>Lparameters toObjeAdi
>Local lnI as Integer
>For m.lnI = 1 To &toObjeAdi..ControlCount
> m.loControl = &toObjeAdi..Controls[lnI]
>
> Insert into Test (baslik, objead) values (toObjeAdi + '.' + m.loControl.BaseClass, m.loControl.name)
>
> If InList(m.loControl.BaseClass, 'Container')
> thisform.newolist(toObjeAdi + '.' + m.loControl.Name)
> EndIf
>
>EndFor
>
>But then, i have to write a lot of controls for commandgroups, grids, and etc.
>
>At the result, i want to get ObjectList at the Init method of form. Thanks for helping to all.
Hi brother,
Use FoxyClasses' udfObjCollector class.
Cetin