topic-23061

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

datas en clases..
Posted: Fri Dec 09, 2011 05:17 PM

Hola foro,

Pues tengo una pequeña duda a ver si alguien me puede explicar..

tengo una clase con sus data y sus method.
dentro de algunos method las datas no me funcionan sino hasta que les antepongo el self.. asi esta mi ejemplo:

Code (fw): Select all Collapse

CLASS MiPrueba
         DATA aoDatos       AS ARRAY   INIT { nil, nil }
         METHOD Opcion
ENDLASS

METHOD Opcion CLASS MiPrueba
Local oDlg,  [color=#FF0000]oSelf:=SELF[/color]
Define Dialog oDlg

    REDEFINE BTNBMP oBtn PROMPT "prueba" ID 101 OF oDlg ;
               ACTION ::aoDatos[1]:SetFocus()        --->   asi no me funciona
               ACTION [color=#FF0000]oSelf[/color]:aoDatos[1]:SetFocus()     ---> [color=#0040FF]asi si me funciona[/color]

   REDEFINE GET ::aoDatos[1]  VAR cDatos[1] ID 102 OF oDlg

Activate Dialog oDlg

RETURN( SELF )

gracias
paco

____________________

Paco

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: datas en clases..
Posted: Fri Dec 09, 2011 05:32 PM

Hola

todo empieza desde el comando xbase REDEFINE BTNBMP... ACTION, que traduce la clausula ACTION a un codeblock que sera evaluado en la clase TBTNBMP, ese codeblock recibe como primer parametro Self, pero no es el Self de tu clase sino del la Clase TBTNBMP

usando oSelf:=SELF forzamos a usar nuestro objeto y no el de clase TBTNBMP

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: datas en clases..
Posted: Fri Dec 09, 2011 06:00 PM

Bien al menos hoy aprendi algo nuevo...
Gracias Daniel
Saludos
Paco

____________________

Paco

MarioG

Posts: 1380