Evitar Editar el campo con Enter

[William Chavez Noriega]

Uso la Clase TSBrowse 6.0, Como todos saben para editar un campo se puede usar las teclas F2, ENTER, letras (si es alfanumerica) y Numeros (Si es Numerica), etc.
Debo evitar que ENTER edite la celda enfocada, ¿como lo puedo hacer, sin evitar que la columna sea editable... Alguien por favor puede ayudarme?

Gracias de antemano

William Chavez Noriega
Lima - Peru

[mmercado]

Hola William:

Debo evitar que ENTER edite la celda enfocada, ¿como lo puedo hacer, sin evitar que la columna sea editable... Alguien por favor puede ayudarme?

Code: Select all

oBrw:bUserKeys := {|nKey| If( nKey == VK_RETURN, .F., nKey ) }

Saludos

Manuel Mercado

[William Chavez Noriega]

Sr. Mercado, le agradesco la ayuda... probe su sugerencia, pero pierdo el doble click del mouse que tambien edita la celda.

Gracias

William Chavez Noriega
Lima - Peru

[mmercado]

Sr. Mercado, le agradesco la ayuda... probe su sugerencia, pero pierdo el doble click del mouse que tambien edita la celda

Entonces Pruéba así:

Code: Select all

oBrw:bUserKeys := {|nKey, nFlags| If( nKey == VK_RETURN .and. nFlags > 0, .F., nKey ) }

Saludos

Manuel Mercado

[William Chavez Noriega]

Sr. Mercado Muchas gracias por la ayuda, ahora si funciona muy bien
Le agradesco de corazon la ayuda que me esta brindando estos días.

William Chavez Noriega
Lima - Peru

[mmercado]

Sr. Mercado

El "Sr." lo serás tú, para todos mis amigos de los foros de FiveWin soy Manuel y me gusta que me tuteen. Una de las cosas que más me atrajeron de esta profesión hace muchos años fue que entre todos los programadores (no eran muchos eh) no existía la diferencia de edades, todos nos tuteábamos.

Así es que ya lo sabes, ! no seas "Desigualado" ¡ jejeje

Un abrazo.

Manuel Mercado

[ADBLANCO]

Manuél, Estoy de Acuerdo contigo, Yo ya tengo casi 30 años en Sistemas, Algunos de mis compañeros ya son cuarentones, y aquí TODOS somos 'Chamos', (Una forma de llamar a los jóvenes en Venezuela).


Saludos;

[jrestojeda]

Hola William

Prueba lo siguiente:

Code: Select all

oBrw:bUserKeys := {|nKey, nFlags| If( nKey = 13 .and. nFlags > 0, .F., nKey ) } 

Espero te sirva.
Saludos

[Ruben]

Sr. Manuel Mercado, soy nuevo en esto de la Programada en xHarbour y quiciera aprender, Ud me podria ayudar con el aprendizaje??

Estoy en ceros, ya tengo todo instalado para empezar alguna practica

[karinha]

Sr. Manuel Mercado, soy nuevo en esto de la Programada en xHarbour y quiciera aprender, Ud me podria ayudar con el aprendizaje??

Estoy en ceros, ya tengo todo instalado para empezar alguna practica

Hola Ruben, Fivewin é mui sencillo, mira estos ejemplos, espero que ayude.

http://www.fivewin.com.br/exibedicas.asp?id=602

http://www.fivewin.com.br/exibedicas.asp?id=601

http://www.fivewin.com.br/exibedicas.asp?id=579

Saludos.

[mmercado]

Hola Rubén. bienvenido al foro

Sr. Manuel Mercado, soy nuevo en esto de la Programada en xHarbour y quiciera aprender, Ud me podria ayudar con el aprendizaje??

Siempre estamos dispuestos a ayudar despejando dudas o proponiendo soluciones a problemas encontrados en tus desarrollos

Estoy en ceros, ya tengo todo instalado

Cual versión de FiveWin estás usando?

para empezar alguna practica

En la carpeta \FWH\Samples encontrarás múltiples ejemplos y un script (BUILDX.BAT) con el que podrás crear los ejecutables desde la consola MS-DOS (Símbolo del sistema), ejemplo: BUILDX TESTDLG

Suerte

Manuel Mercado