Como identificar o objeto?

[AOKISANTOS]

Pessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo:


for i := 1 to numero
for j := 1 to Tnucol
conta++
if conta<=numero
if file(aprodsubs[j][3])
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[j][3] SIZE 95,80 OF oWndChild2 ADJUST PIXEL
else
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SENSITIVE say ToBtc[conta] var aprodsubs[j][2] SIZE 95,80 OF oWndChild2 PIXEL font fonte_TC2 COLOROVER CLR_YELLOW
endif
endif
next
next

Grato

Fiquem com Deus

Aoki

[Carlos Mora]

dentro del bucle, despues de crear cada objeto hacer

ToBtc[conta]:Cargo:= { i, j }

o lo que te haga falta para encontrar el objeto.

[AOKISANTOS]

Carlos Mora, muito obrigado por me ajudar meu amigo,fiz assim:


Posted: Wed Sep 19, 2007 1:38 pm Post subject: Como identificar o objeto?

--------------------------------------------------------------------------------

Pessoal preciso identificar o número do objeto para usar no action, como fazer isso no caso abaixo:


for i := 1 to numero
for j := 1 to Tnucol
conta++
if conta<=numero
if file(aprodsubs[j][3])
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) image ToBtc[conta] file aprodsubs[j][3] SIZE 95,80 OF oWndChild2 ADJUST PIXEL
else
@ (((i-.2) * 80) - 66), ((j * 94.5) - 93) SENSITIVE say ToBtc[conta] var aprodsubs[j][2] SIZE 95,80 OF oWndChild2 PIXEL font fonte_TC2 COLOROVER CLR_YELLOW ACTION(MSGINFO(aprodsubs[j][2]))
endif
ToBtc[conta]:Cargo:= { i, j }
endif
next
next


E não me retorna no ACTION o valor da variavel!

Grato