GET sin longitud con espacios blancos

Re: GET sin longitud con espacios blancos

Postby Xevi » Wed Dec 20, 2017 10:10 am

Y otra...

Los EDITS, cuando se pulsa RETURN suena un 'dong' ... hace un SendMessage()
Yo lo he sacado así...
Code: Select all  Expand view  RUN

//...
   OVERRIDE METHOD KeyChar IN CLASS TEdit WITH xEditKeyChar
//...

FUNCTION xEditKeyChar( nKey, nFlags )
   Local Self := HB_QSelf()

   FWLOG ValType( Self ), ::ClassName()

   IF nKey == VK_RETURN
      Return 0
   ENDIF

return ::Super:KeyChar( nKey, nFlags )
 
Un Saludo,
Xevi.

Aprendiz de la vida!!!
User avatar
Xevi
 
Posts: 174
Joined: Wed Nov 29, 2017 11:42 am
Location: Girona

Re: GET sin longitud con espacios blancos

Postby Antonio Linares » Wed Dec 20, 2017 11:06 am

Xevi,

El comportamiento de las ventanas y de los diálogos en Windows standard no es igual, de ahí que observes esas diferencias

Cada ventana ó diálogo ó control en Windows tiene asociado un "procedimiento" (una rutina en C que controla su comportamiento).
Pues esos procedimientos NO son los mismos en todos ellos. Así es como está diseñado Windows :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42118
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Previous

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 32 guests