Estimados;
En un Dialog tengo botones RBbtn, entre ellos uno para Cerrar el Dialog. Tambien tengo el primer GET con condici贸n de validaci贸n.
El punto es que cuando hago clic en boton Cerrar, si el GET no cumple con la validaci贸n, el Dlg no se cierra.
O sea, el RbBtn no tiene la cl谩usula CANCEL.
Cual es la soluci贸n?
gracias
Mario,
oRBtn:lCancel := .T.
muchas gracias!
#include "fivewin.ch"
#include "ribbon.ch"
procedure Main
local oDlg, ;
聽 聽 聽 oGet, ;
聽 聽 聽 oEsc, ;
聽 聽 聽 cNombres:= Space( 30 )
聽 聽SET RESOURCES TO "TstRbBtn.dll"
聽 聽DEFINE DIALOG oDlg RESOURCE "dlg_datos"
聽 聽REDEFINE GET oGet VAR cNombres ID 101 OF oDlg ;
聽 聽 聽 聽 聽 聽 ACTION Alert( "Abre Lista existente" ) ;
聽 聽 聽 聽 聽 聽 VALID if( !Empty( cNombres ), .T., ( Alert( "No cierra desde el boton" ), .f. ) )
聽 聽REDEFINE RBBTN oEsc PROMPT "Cerrar" ID 300 OF oDlg TRANSPARENT ;
聽 聽 聽 聽 聽 聽 ACTION oDlg:End()
聽 聽oEsc:lCancel:= .T.
聽 聽ACTIVATE DIALOG oDlg
// Fin// Test Rnbtn - CANCEL
dlg_datos DIALOG 152, 59, 161, 51
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
CAPTION "Datos..."
FONT 11, "Calibri"
{
聽EDITTEXT 101, 42, 9, 114, 10
聽RTEXT "Nombres:", -1, 7, 10, 33, 8
聽LTEXT "", 12, 104, 95, 32, 8
聽CONTROL "", 300, "TRBtn", 0 | WS_CHILD | WS_VISIBLE, 62, 29, 36, 18
}
METHOD KillFocus( hCtlFocus ) CLASS TControl
聽 聽local oWnd
聽 聽if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;
聽 聽 聽 ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;
聽 聽 聽 Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP" .and. ;
聽 聽 聽 .../...METHOD KillFocus( hCtlFocus ) CLASS TControl
聽 聽local oWnd
聽 聽if ! Empty( hCtlFocus ) .and. ::bValid != nil .and. WndParents( hCtlFocus, ::hWnd ) .and. ;
聽 聽 聽 ( oWnd := oWndFromhWnd( hCtlFocus ) ) != nil .and. ;
聽 聽 聽 Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP;TRBTN" .and. ;
聽 聽 聽.../...Antonio, quizas en la actual habr铆a que a帽adirlo igual
Cristobal;
Muchas gracias. Probar茅 tu propuesta
Cristobal,
A帽adido para FWH 13.09, muchas gracias! 