formulario que tiene varios TEXTBOX

[luisfrancisco62]

Hola a Todos

Tengo un formulario que tiene varios TEXTBOX, cuando recorro los controles con la
tecla "TAB", recibe el foco el TEXTBOX y se selecciona automaticamente todo el
contenido, al seleccionar un TEXTBOX con el mouse no repite este comportamiento.
Como puedo hacer para que al seleccionar un TEXTBOX con el mouse automaticamente
seleccione todo el contenido...?

Gracias

[Pablo César]

Hola Luis,

Has conseguido hacer lo que pediste ? (Sé que se pasó mucho tiempo), pero creo que nunca es tarde...

Lo que pides, me parece un tanto dificil, porque el comportamiento del mouse debe hacer foco justamente donde el puntero de mouse señala.

Solo para el aprendizaje.

Code: Select all

#include "hmg.ch"

Function Main

DEFINE WINDOW Form_1 ;
	AT 0,0 ;
	WIDTH 400 ;
	HEIGHT 200 ;
	TITLE 'CaretPos and Shift+End Demo' ;
	MAIN 

	@ 10,10  TEXTBOX text_1 VALUE '1234567890' ON GOTFOCUS SendMessage( This.Handle, 177 , 2 , 8 )
	@ 40,10  TEXTBOX text_2 VALUE 'AAAAAAAAAA' ON GOTFOCUS SendMessage( This.Handle, 177 , 2 , 8 )
	@ 70,10  TEXTBOX text_3 VALUE 'BBBBBBBBBB' ON GOTFOCUS SendMessage( This.Handle, 177 , 2 , 8 )
	@ 100,10 TEXTBOX text_4 VALUE 'CCCCCCCCCC' ON GOTFOCUS SendMessage( This.Handle, 177 , 2 , 8 )
	

END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
Return Nil

Fijate que comportamiento tiene cuando presionamos TAB.