Evitar Editar el campo con Enter

Evitar Editar el campo con Enter

Postby William Chavez Noriega » Sat Feb 16, 2008 8:20 pm

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 :P
William Chavez Noriega
 
Posts: 21
Joined: Wed May 10, 2006 5:49 pm
Location: Lima - Peru

Re: Evitar Editar el campo con Enter

Postby mmercado » Sat Feb 16, 2008 9:31 pm

Hola William:

William Chavez Noriega wrote: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  Expand view  RUN
oBrw:bUserKeys := {|nKey| If( nKey == VK_RETURN, .F., nKey ) }


Saludos

Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Evitar Editar el campo con Enter

Postby William Chavez Noriega » Sun Feb 17, 2008 12:34 am

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
William Chavez Noriega
 
Posts: 21
Joined: Wed May 10, 2006 5:49 pm
Location: Lima - Peru

Re: Evitar Editar el campo con Enter

Postby mmercado » Sun Feb 17, 2008 2:41 am

William Chavez Noriega wrote: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  Expand view  RUN
oBrw:bUserKeys := {|nKey, nFlags| If( nKey == VK_RETURN .and. nFlags > 0, .F., nKey ) }

Saludos

Manuel Mercado
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Evitar Editar el campo con Enter

Postby William Chavez Noriega » Sun Feb 17, 2008 3:21 am

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 :wink:
William Chavez Noriega
 
Posts: 21
Joined: Wed May 10, 2006 5:49 pm
Location: Lima - Peru

Re: Evitar Editar el campo con Enter

Postby mmercado » Sun Feb 17, 2008 4:49 am

William Chavez Noriega wrote: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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby ADBLANCO » Mon Feb 18, 2008 12:52 pm

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;
User avatar
ADBLANCO
 
Posts: 299
Joined: Mon Oct 22, 2007 3:03 pm
Location: Valencia - Venezuela

Postby jrestojeda » Mon Feb 18, 2008 1:05 pm

Hola William

Prueba lo siguiente:

Code: Select all  Expand view  RUN
oBrw:bUserKeys := {|nKey, nFlags| If( nKey = 13 .and. nFlags > 0, .F., nKey ) }


Espero te sirva.
Saludos
User avatar
jrestojeda
 
Posts: 601
Joined: Wed Jul 04, 2007 3:51 pm
Location: Buenos Aires - Argentina

Re: Evitar Editar el campo con Enter

Postby Ruben » Wed Feb 20, 2008 8:08 pm

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
User avatar
Ruben
 
Posts: 40
Joined: Wed Feb 20, 2008 5:40 pm
Location: Tampico,Tamps. México

Re: Evitar Editar el campo con Enter

Postby karinha » Fri Feb 22, 2008 12:35 pm

Ruben wrote: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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7859
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Evitar Editar el campo con Enter

Postby mmercado » Fri Feb 22, 2008 2:18 pm

Hola Rubén. bienvenido al foro
Ruben wrote: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

Ruben wrote:Estoy en ceros, ya tengo todo instalado
Cual versión de FiveWin estás usando?

Ruben wrote: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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], groiss and 91 guests