Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   UpperCase en un TDBGRID (https://www.clubdelphi.com/foros/showthread.php?t=60147)

KAYO 22-09-2008 16:25:49

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

Agradezco vuestras respuestas....

luisgutierrezb 22-09-2008 16:36:07

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

Caro 22-09-2008 16:50:01

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 22-09-2008 16:57:49

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 22-09-2008 17:54:58

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

TOPX 22-09-2008 19:45:24

Cita:

Empezado por KAYO (Mensaje 315530)
Sois Unas Maquinas!!!!!

"the Soul is in the Software"
Icon of Coil


La franja horaria es GMT +2. Ahora son las 11:22:16.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi