Edit solo en Mayusculas

[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);