Sólo mayusculas en edit y/o combobox
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
|