Saludos desde Maracay, Venezuela...
Esta función debe recibir como parámetro el dw que necesitas manejar...
En este caso te da un messagebox por cada objeto que encuentra y su ubicación...
si la llamas f_busca_objeto y tu dw (el objeto en la ventana) se llama dw_1 por ejemplo, la ejecutas así...
f_busca_objeto(dw_1)
Espero que te sirva..
...
// Función que busca todos los objetos y despliega su ubicación...
string ls_objetos, ls_objeto, ls_donde
long ll_largo, ll_desde, ll_hasta
ls_objetos = dw_busca.DYNAMIC describe('datawindow.objects')
// Recorremos los todos objetos...
ll_largo = len(ls_objetos)
If ll_largo > 0 Then
ll_desde = 1
Do
//Ubicamos el Objeto en la cadena
ll_hasta = pos(ls_objetos, "~t", ll_desde)
If ll_hasta = 0 Then
ls_objeto = mid(ls_objetos, ll_desde)
Else
ls_objeto = mid(ls_objetos, ll_desde, ll_hasta - ll_desde)
End If
// LOcalizamos Donde se encuentra...
ls_donde = dw_busca.DYNAMIC describe(ls_objeto + '.band')
// Presentamos donde está ubicado...
If len(ls_objeto) > 0 Then
MessageBox('En ' + ls_donde,ls_objeto)
End If
// Nos desplazamos en la cadena...
ll_desde = ll_hasta + 1
// Seguimos el ciclo..
Loop While (ll_hasta > 0)
END IF
