TBTNBMP no me funciona CANCEL

[miragerr]

Ola amigos

Tentei usar da seguite forma

REDEFINE BTNBMP oBtn1 ID 4009 OF oDlg ACTION( lSair := .T., oDlg:End() ) LEFT 2007 NOBORDER CANCEL

A clausula CANCEL nao funciona como fazer para funcionar

Fico no Aguardo

[Willi Quintana]

Hola, hazlo asi:

Code: Select all

       REDEFINE BTNBMP oCance ;
                RESOURCE "CANCELAR" LEFT NOBORDER ;
                PROMPT "Cancelar" ;
                ACTION (lOK := .f., oDlg:End()) ;
                ID 131 OF oDlg
                oCance:lCancel := .t.
 

[miragerr]

Gracias Willi, assim me funciona perfecto