FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour GET MULTILINE
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
GET MULTILINE
Posted: Tue Dec 12, 2017 10:48 PM
Estimados

Tengo un GET MULTILINE y quiero que grabe sólo cuando pierde el Focus el GET
Algo Asi:

Code (fw): Select all Collapse
@80,180 GET oGet VAR cTEXTO OF oWnd PIXEL SIZE 200,137 MULTILINE 
    oGet:bChange = { || If( oGet:lfocus(), Graba(), ) }


oGet:lostfocus() --> Da error

Gracias por la ayuda
Saludos,



Adhemar C.
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: GET MULTILINE
Posted: Tue Dec 12, 2017 11:38 PM

Adhemar, ya probaste asi?
oGet:bLostFocus := {|| msginfo("Tu funcion") }

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: GET MULTILINE
Posted: Wed Dec 13, 2017 01:02 PM

Gracias Francisco.

De la forma que me indicas, siempre pasará por la función cuando ha perdido el focus.
Lo que necesito es cuando se realizado un cambio recién vaya a la función.

Saludos,



Adhemar C.
Posts: 1515
Joined: Thu Oct 30, 2008 02:37 PM
Re: GET MULTILINE
Posted: Wed Dec 13, 2017 01:09 PM
Todo es sumable :-)

Code (fw): Select all Collapse
Local lCambiado:= .f.

oGet:bChange = { || lCambiado:= .t. }

oGet:bLostFocus := {|| If(lCambiado, Graba(), nil) }
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: GET MULTILINE
Posted: Wed Dec 13, 2017 01:18 PM

Gracias hmpaquito

Funciona Perfecto.

Saludos,



Adhemar C.

Continue the discussion