Edit solo en Mayusculas

[[marceloalegre]]

a veces hay "pabadas" o cosas muy simple que uno nunca se puso a mirar...

hoy se me dio por querer poner en un sistemita un edit que escriba solo en mayusculas.. no que con el upper converta internamente, sino que use solo mayusculas. Se me ocurren cosas (pero es de capturar la tecla,pasarla a mayuscula y tirarla en el edit ,,, no debe ser la mejor idea ) jeje (ya saben lo que pienso) tienen alguna idea mejor?

Saludos a todos

[dec]

Hola,

Prueba con dar el valor "ecUpperCase" a la propiedad "CharCase" del "TEdit".

[dmagui]

Dec, recuerda que esta pregunta ya la respondiste en otro hilo, por tal motivo invito a kanvictor que use la opcion "buscar"

[dec]

Hola,

Empezado por dmagui

Dec, recuerda que esta pregunta ya la respondiste en otro hilo, por tal motivo invito a kanvictor que use la opcion "buscar"

Ya lo creo que lo recuerdo: de otro modo cómo iba a haber respondido

Pero, llevas razón, una búsqueda en los Foros hubiera terminado posiblemente en este Hilo.

[[marceloalegre]]

Empezado por dmagui

Dec, recuerda que esta pregunta ya la respondiste en otro hilo, por tal motivo invito a kanvictor que use la opcion "buscar"

gracias por la invitacion magui, habia buscado pero evidentemente lo pase por alto...

Pd: Gracias por la respuesta mi estimado DEC!
Saludos.-

[Alonsoab]

Estimado cyber-colega, lo que buscas es muy fácil de hacer pero por lo menos a mí me costó mucho encontrarlo, simplemente debes agregar una línea de código en el evento ONKEYPRESS de cualquier edit y/o combobox. Este es un ejemplo que debes repetir en cada uno de los edit y/o combobox que ocupes:

procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char);
begin

key := UpperCase(Key)[1];

end;

Eso es todo... ojalá te sirva tanto como a mí.

PD: Esto lo ocupo en delphi 7, desconozco sus efectos en otra versiones.

Saludos.

CONSTANTINE

[roman]

No entiendo, ¿cuál es la finalidad de esto? Tanto el Edit como el Combo tienen su propiedad CharCase con la que se les puede forzar a usar sólo mayúsculas. Y eso es lo que contestó dec desde hace un año.

// Saludos

[MaMu]

Empezado por roman

No entiendo, ¿cuál es la finalidad de esto? Tanto el Edit como el Combo tienen su propiedad CharCase con la que se les puede forzar a usar sólo mayúsculas. Y eso es lo que contestó dec desde hace un año.

// Saludos

Segun le entendi yo, el quiere que los TEdit autoconfiguren al ser escritos en modo de letra "Versailita", es decir, la primera letra en Mayuscula, y solo la primera.

Saludos.

[[seoane]]

Empezado por mamu

Segun le entendi yo, el quiere que los TEdit autoconfiguren al ser escritos en modo de letra "Versailita", es decir, la primera letra en Mayuscula, y solo la primera.

Saludos.

Kanvictor el autor original de la pregunta no quería eso, puesto que la solución que le dieron le pareció bien. En cuanto a Alonsoab tampoco consigue eso, el "1" que aparece en su código es un intento de convertir un string en char. Es decir:

Código Delphi [-]
  Key:= Uppercase(Key)[1];
  // Es lo mismo que
  Key:= Upcase(Key);