* Se creeaza metoda Reorder.
Lparameters oObj
Local oControl
For Each oControl In oObj.Objects
*Wait window oControl.Name
If Pemstatus(oControl, 'Objects', 5)
This.Reorder(oControl)
EndIf
EndFor
Se apeleaza pt un formular:
Thisform.Reorder(Thisform)
sau pentru un obiect de tip container
Thisform.Reorder(Thisform.PageFrame)
Niciun comentariu:
Trimiteți un comentariu