FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour aControls en Folder
Posts: 63
Joined: Sun Apr 08, 2007 09:50 PM
aControls en Folder
Posted: Wed Sep 05, 2007 02:15 PM

Hola amigos
Asi como se puede indagar los nombres de clase de los objetos de un Dlg con:
If oDlg:aControls[x]:ClassName()="TGET"

Cómo se puede saber los nombres de clase de los objetos dentro de un Folder. Algo asi como:
If oFld:aDialogs[y]:aControls[x]:ClassName()="TGET"

claro,esta última instrucción no funciona. Quiero deshabilitar todos los GETs de un folder

Saludos y muchas gracias
Jorge Vargas

FW-705, xHarbour 0.99.71 (SimpLex) , bcc55
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
aControls en Folder
Posted: Wed Sep 05, 2007 07:48 PM

Jorge,

oFld:aDialogs[y]:aControls[x]:ClassName()="TGET"

tiene que funcionarte correctamente

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 63
Joined: Sun Apr 08, 2007 09:50 PM
aControls en Folder
Posted: Wed Sep 05, 2007 10:14 PM

Hola Antonio
Muchas gracias por tu respuesta.
es cierto funciona bien. Yo me equivoqué en el 2do FOR, puse
for y=1 to len(oFld:aDialogs)
for x=1 to len(oFld:aDialogs[y])
if oFld:aDialogs[y]:aControls[x]:ClassName()="TGET"

en vez de
for x=1 to len(oFld:aDialogs[y]:aControls)

otra vez, muchas gracias
Saludos
Jorge Vargas

FW-705, xHarbour 0.99.71 (SimpLex) , bcc55

Continue the discussion