Ver Mensaje Individual
  #1  
Antiguo 14-10-2005
Johnny Q Johnny Q is offline
Miembro
 
Registrado: may 2005
Ubicación: Colombia
Posts: 172
Reputación: 22
Johnny Q Va por buen camino
Lightbulb Truco para mayusculas en DBGrid

Un saludo a todos.

Como es bien sabido por todos el componente DBGrid no tiene una propiedad que transforme el texto ingresado a mayusculas. Pues bien, aunque depronto para muchos no sea algo novedoso, encontre en Internet un código que aplica para un TMemo pero que se puede adaptar para un DBGrid. El codigo original para el TMemo esta en:
www.hispanam.com/delphi/trucos/truco3.htm
y tiene el titulo de Truco 55 - Que el texto de un TMemo se escriba siempre en mayúsculas.

Para el DBGrid se puede tomar un fragmento del código e implementarlo en el evento OnKeyPress asi:

Código:
 procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
 begin
  if Key in ['a'..'z'] then
 	Key := UpCase(Key);
 end;
Espero que pueda ser de utilidad para alguien.
Responder Con Cita