Xailer & OZ Software

Hola,
Me gustaría moverme por controles Tedit con flecha arriba y abajo, ¿que
puedo hacer para implementarlo derivando de la Xedit? Es que al no tener los
fuentes no sé que tengo que sobrecargar o modificar.
Un Saludo,
Joaquín

Joaquín,
> Me gustaría moverme por controles Tedit con flecha arriba y abajo, ¿que
> puedo hacer para implementarlo derivando de la Xedit? Es que al no tener
> los
> fuentes no sé que tengo que sobrecargar o modificar.
tendrías que hacer algo así (ojo, no lo he probado):
CLASS TEdit FROM XEdit
METHOD WMKeyDown()
ENDCLASS
METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
IF nKey == VK_UP
::GoPrevControl()
ELSEIF nKey == VK_DOWN
::GoNextControl()
ENDIF
RETURN Super:WMKeyDown( nKey, nFlags )
--
Un saludo,
José F. Giménez

Funciona!!!!! Gracias
Joaquín
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=42846c7f@ozsrvnegro.ozlan.local...]42846c7f@ozsrvnegro.ozlan.local...[/email]
> Joaquín,
>
> > Me gustaría moverme por controles Tedit con flecha arriba y abajo, ¿que
> > puedo hacer para implementarlo derivando de la Xedit? Es que al no tener
> > los
> > fuentes no sé que tengo que sobrecargar o modificar.
>
> tendrías que hacer algo así (ojo, no lo he probado):
>
> CLASS TEdit FROM XEdit
> METHOD WMKeyDown()
> ENDCLASS
>
> METHOD WMKeyDown( nKey, nFlags ) CLASS TEdit
>
> IF nKey == VK_UP
> ::GoPrevControl()
> ELSEIF nKey == VK_DOWN
> ::GoNextControl()
> ENDIF
>
> RETURN Super:WMKeyDown( nKey, nFlags )
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>