FiveTech Software tech support forums

Code: Select all | Expand

Function ClassTest ()

   Local oTest := Nil

   oTest := Test () : New ()

Return .T.

Class Test

   Data oWnd
   Data oGet1
   Data cGet1 Init Space (10)

   Method New ()
   Method ReadTest ()
   Method ShowTest ()

EndClass

Method New () Class Test

   Define Window ::oWnd Title 'Class Test'
   @ 10, 10 Button 'Ok' Size 60, 20 Pixel Action ::ReadTest ()
   Activate Window ::oWnd

Return Self

Method ReadTest () Class Test

   @ 40, 10 Get ::oGet1 Var ::cGet1 Size 100, 20 Pixel On Change ::ShowTest () Of ::oWnd // this generate error message not found TGET:SHOWTEST
   @ 70, 10 Button 'Ok' Size 60, 20 Pixel Action MsgInfo (Str (::oGet1 : nPos))

Return .T.

Method ShowTest () Class Test

   MsgInfo (Str (::oGet1 : nPos))

Return .T.

Code: Select all | Expand

...
::oGet1:bChange := {|| ::ShowTest() }
...

Code: Select all | Expand

Method ReadTest () Class Test 
   
   local oThis := Self

   @ 40, 10 Get ::oGet1 Var ::cGet1 Size 100, 20 Pixel On Change oThis:ShowTest () Of ::oWnd
   @ 70, 10 Button 'Ok' Size 60, 20 Pixel Action MsgInfo (Str (::oGet1 : nPos)) 

Return .T.