UpperCase en un TDBGRID

[KAYO]

Como se podrá limitar la entrada en un TDBGRID de solo carateres en UPPERCASE?

Agradezco vuestras respuestas....

[luisgutierrezb]

porque no mejor conviertes la entrada a uppercase en el evento on settext del campo? no del dbgrid

[*Caro*]

Hola KAYO, puedes utilizar el evento OnKeyPress del dbGrid.

Código Delphi [-]
//Asi
procedure TForm1.dbgridKeyPress(Sender: TObject; var Key: Char);
begin
 if not(key in ['A'..'Z']) then
  key := #0;
end;
 
//O asi
procedure TForm1.dbgridKeyPress(Sender: TObject; var Key: Char);
begin
 key := UpperCase(key)[1];
end;

Saluditos

[roman]

En lugar de UpperCase hay que usar AnsiUpperCase, ya que la primera no trabaja con letras acentuadasy eñes.

Por otra parte, recuerden que eso no impide que alguien pegue texto en minúsculas sobre el control.

Una opción es alterar el control de edición que usa el DBGrid para aceptar datos, tal como lo puse aquí.

// Saludos

[KAYO]

Gracias Al Foro..... Sois Unas Maquinas!!!!!

[TOPX]

Empezado por KAYO

Sois Unas Maquinas!!!!!

"the Soul is in the Software"
Icon of Coil