como introducir puras mayusculas en un DBMemo

[Goyo]

deseo que en mi formulario en un campo DBMemo me acepte solo mayusculas, actualmente me pone a mayusculas cuando activo en Capslook (BloqMayus), asi como en los DBEdits, se cambia en la propiedad CharCas...

saludos..

[Goyo]

JEJE ya lo resolvi... pero de antemano muchas gracias.

aqui esta el codigo:

por cierto lo pongo en el evento OnKeyPress del DBMemo y automaticamente cambia todo el texto que escribas en minusculas a mayusculas...

Código Delphi [-]
procedure TFrmBitacora2.DBCServiciosKeyPress(Sender: TObject;
  var Key: Char);
begin
  key := UpperCase(Key)[1];
end;

saludos...

[roman]

Bueno, otra manera por si te interesa:

Código Delphi [-]
type THackMemo = class(TDBMemo);

...

THackMemo(DBMemo1).CharCase := ecUppercase;

// Saludos

[[maeyanes]]

Vaya, te iba a comentar que lo más fácil es poner la propiedad CharCase a ecUpperCase, pero según veo TDBMemo no tiene publicada esa propiedad...


Saludos...

[roman]

La tiene, la tiene, sólo que bien escondidita

[[maeyanes]]

Si... al momento de heredar no publicaron la propiedad...

A lo que hay que recurrir para tener un TDBMemo que acepte puras mayúsculas...