Edit solo en Mayusculas

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