Problemas para borrar un texto en un TEXTBOX

[Antonio Cardinaux]

Tengo un control XBROWSE y un TEXTBOX. El xbrowse tiene nombres de empleados de un sistema de sueldos. El Textbox permite filtrar ese xbrowse de acuerdo al nombre que se le ponga. Tengo estas lineas:

  DEFINE TEXTBOX txtBuscar
      ROW 40
      COL 140
      VALUE cBuscar
      WIDTH 200
      ON GOTFOCUS SelectAllText( "txtBuscar","frmLegajos" )
      ON CHANGE Buscar()
      UPPERCASE .T.
    END TEXTBOX

    aHeaders:={'Legajo','Apellido y Nombres','Domicilio','Localidad' }
    aWidths :={ 60,200,220,220 }
    aCtrl:={ {'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' },{'TEXTBOX','CHARACTER' } }

@ 70, 10 XBROWSE XBrLegajos ;
  OBJ oXBrLegajos ;
      WIDTH 710 ;
      HEIGHT 310 ;
      HEADERS aHeaders ;
      WIDTHS aWidths ;
      WORKAREA empleadolega ;
      FIELDS { 'legajo','nombre','domicilio','localidad' } ;
  COLUMNCONTROLS aCtrl ;        
  ON DBLCLICK AbmLegajos( "M" )

    DEFINE STATUSBAR
      STATUSITEM ''l
    END STATUSBAR
   
    ON KEY DELETE ACTION  IF( ThisWindow.FocusedControl == "XBRLEGAJOS", DelRow(), NIL )

El ON KEY DELETE funciona bien siempre que uno se posicione en el xbrowse, pero si de pronto estoy en el textbox y me doy cuenta de que lo que escribi esta mal, marco el texto que esta mal con el mouse y luego presiono DEL, no hace nada ¿Como se puede hacer para que funcione la tecla DELETE en el textbox?

Antonio
Sistemas
Resipol

[David Field]

Hola Antonio,

Quita la linea 

>> ON KEY DELETE ACTION  IF( ThisWindow.FocusedControl == "XBRLEGAJOS", DelRow(), NIL )

No es necesaria para borrar un renglón del browse

Agrega DELETE a la definición del browse

@ 70, 10 XBROWSE XBrLegajos ;
  OBJ oXBrLegajos ;
      WIDTH 710 ;
      HEIGHT 310 ;
      HEADERS aHeaders ;
      WIDTHS aWidths ;
      WORKAREA empleadolega ;
      FIELDS { 'legajo','nombre','domicilio','localidad' } ;
  COLUMNCONTROLS aCtrl ;        

  ON DBLCLICK AbmLegajos( "M" ) ;

          DELETE

También puedes agregar DELETEWHEN, ONDELETE, DELETEMSG y NODELETEMSG dependiendo de lo que desees.

Saludos,

David FIeld

[Antonio Cardinaux]

Muchas gracias David

--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/fe2d87a3-6ff6-46ed-a62e-f50c39bb39aan%40googlegroups.com.

--

Antonio Cardinaux

Lanús

Buenos Aires

Argentina