Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiar Mayusculas A Dbmemo (https://www.clubdelphi.com/foros/showthread.php?t=34085)

susy 26-07-2006 17:24:18

Cambiar Mayusculas A Dbmemo
 
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] 26-07-2006 17:38:03

Hola, te recomiendo que leas la Guía de estilo.

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

Código Delphi [-]
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 26-07-2006 17:50:14

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.


La franja horaria es GMT +2. Ahora son las 05:48:06.

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