Thanks - that was similar to my solution.

>>Has anyone got a good tight routine that recurses through all controls on a form, including containers, pageframes etc. ?
>>
>>I keep coming up with code that looks too ugly to be doing it smart ! :)
>
>
>Hi There :)
>
>I have one class in my libraries based on custom
>which is fairly easy to use. But u have to turn it into visual object.
>So just create new class to yr main vcx based on 'custom' and add folowing two methods.
>
>Here is code version ;
>
>define class objects_scan as custom
>
>
>procedure go_all_over
>LPARAMETERS ParentContainer
>LOCAL i,oControl
>FOR each oControl in ParentContainer.Controls
> DO case
> CASE oControl.baseclass=="Pageframe"
> FOR i = 1 to oControl.Pagecount
> this.go_all_over(oControl.Pages(i))
> NEXT
>
> CASE oControl.baseclass=="Container"
> this.go_all_over(oControl)
>
> CASE oControl.baseclass=="Grid"
> FOR i = 1 to oControl.columncount
> this.go_all_over(oControl.columns(i))
> NEXT
> OTHERWISE
> this.do_the_thing(oControl)
> ENDCASE
>NEXT
>this.do_the_thing(ParentContainer)
>
>procedure do_the_thing
>Lparameters oControl
>
>
>
>
>enddefine
>
>Implementation in subclass (that going to be dropped on the form)
>then goes like this ;
>
>define class oScan as objects_scan
>
>procedure do_the_thing
>Lparameters oControl
>local oControl
>wait wind oControl.name
>.
>.
>
>
>enddefine
>****
>
>After being dropped on the form
>scanning of the objects (and doing the thing :) has to be invoked by calling method
>
>thisform...oScan.go_all_over(thisform)
>
>and passing desired container (e.g thisform )
>as parameter.
>
>
>Sorry for bad readability of the message (I always forget those
>codes for presenting code)
>
>There4 copy/paste/beautify :))
>
>Hope this can help you.
>Best Regards