All Control Tabstop False

pdabasic

Active Member
Licensed User
I try to disable all control taborder but I don't find the optimal solution
My problem is the getContols("") get all object too and some object have ControlRef others haven't.
Now I use this code but i think it's to primitive:

B4X:
For cont=0 To ArrayLen(panels())-1
  contType=ControlType(panels(cont))
    If contType="fgButtons.fgButtons.fgGradientButtons" Then
      objTab.FromControl(Control(panels(cont),"fgGradientButtons").ControlRef)
      objTab.SetProperty("TabStop",False)
    Else If panels(cont)="myclass.eventkey" OR contType="FormLib.FormLib" OR contType="System.Collections.ArrayList" OR contType="ScrollBar.ScrollBar" OR contType="dzEventsMagic.dzEventsMagic" OR contType="Door.Object" OR contType="Timer" OR contType="dzImage.ImageClass" OR contType="ImageLibEx.SlideShow" OR contType="ImageLibEx.BitmapEx"
'Do Nothing
     Else
   objTab.FromControl(panels(cont))
   objTab.SetProperty("TabStop",False)
     End If
Next

panels() get with GetControls("")
 
Top