Cambiar Mayusculas A Dbmemo

[susy]

HOLA... BUENOS DIAS A TODOS, QUE CREEN?
RESULTA QUE ESTOY HACIENDO UNA APLICACION EN DONDE ESTOY UTILIZANDO EL DBMEMO, YA LO TENGO LISTO, LO UNICO QUE ME FALTA ES SABER COMO PUEDO FORZAR O DAR FORMATO PARA QUE ESCRIBA EL TEXTO SOLO EN MAYUSCULAS, EN LOS DBEDIT, USO CHAR CASE EN UPPERCASE, PERO EN LOS DBMEMOS NO TENGO NI LA MAS REMOTA IDEA DE COMO HACERLO... PODRIAN AYUDARME POR FAVOR???
LES AGRADEZCO MUCHO Y LES DEJO UN SALUDIN :confused:

[Neftali [Germán.Estévez]]

Hola, te recomiendo que leas la Guía de estilo. (http://www.clubdelphi.com/foros/guiaestilo.php)

Con éste código puedes conseguir que lo que se escribe aparezca en mayúsclas (evento OnKeyPress):


procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
key := UpperCase(Key)[1];
end;



Queda sin resolver la opción de que "peguen" un texto desde el portapapeles, por ejemplo. Para eso tendrás que modificar todo el texto al acabar (por ejemplo en el OnExit, que también es una opción válida aunque no utilices el código anterior).

[susy]

Hola Neftali, las dos sugerencias que me hiciste el favor de darme me han sido de gran utilidad. Como verás, soy novata, una disculpa hee.
Ya probe tu respuesta y me dio el resultado que esparaba, muchisimas gracias.