Tabindex y SetFocus

Artículo original: Tabindex and SetFocus
http://www.foxpert.com/KnowlBits_200605.htm
Autor: Christof Wollenhaupt (http://www.foxpert.com/knowlbits.htm)
Traducido por: Ana María Bisbé York (amby@telefonica.net)
Para: PortalFox (http://www.portalfox.com)

TabIndex define en qué orden VFP se mueve dentro de un contenedor. Sin embargo, no define qué control recibe el foco si le da el foco al objeto padre. Si llama al método SetFocus() de un contenedor, VFP le da el foco al elemento que ha sido instanciado primero. Es decir, VFP recorre la colección Objects en el orden físico y entrega el foco al primer elemento que pueda recibir el foco. VFP NO le da el foco al control con el menor TabIndex. El siguiente programa demuestra esto.

Public goForm
goForm = CreateObject("MyForm")
goForm.Show()
goForm.myContainer.SetFocus()

Define Class MyForm as Form
Add object Text1 as Textbox with Top = 0
Add Object myContainer as MyContainer with Top = 30
Add object Text2 as Textbox with Top = 130
EndDefine

Define Class myContainer as Container
Add Object Text1 as Textbox with Top=0, TabIndex = 2
Add Object Text2 as Textbox with Top=25, TabIndex = 1
Add Object Text3 as Textbox with Top=50, TabIndex = 3
EndDefine