Digitanto tudo em MAI�SCULO no Memo.

Question

Amigos, como fa�o para que quando o usu�rio digitar qualquer num memo, mesmo com a caps look ligado ou desligado, aparecer todas as letras em mai�sculo....

Rafael Mattos · Answer

No evento KeyPress;procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);begin  Key:= Upcase(Key);end;...

Orlando Frade · Answer

Essa fun��o n�o funciona quando � digitado alguma letra com acentto.
Ex: ELE � O .....

No evento KeyPress; procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char); begin Key:= Upcase(Key); end;

Marcelo.c · Answer

Experimente utilizar [b:4a3cb20e3d]AnsiUpperCase[/b:4a3cb20e3d]....

Beppe · Answer

Assim � mais eficiente:CharUpperBuf(@Key, 1);...

Orlando Frade · Answer

[quote:8dcb2b586b=�Ataliba�]Assim � mais eficiente:CharUpperBuf(@Key, 1);[/quote:8dcb2b586b]Eu tentei usar assim, mas deu erro.> Undeclared identifier CharUpperBufprocedure TFrmFornecedores.MeObsKeyPress(Sender: TObject; var Key: Char);begin Key := CharUpperBuf(@Key, 1);end;...

Beppe · Answer

Ops, ato falho. O correto � CharUpperBuf[b:526565ae9b]f[/b:526565ae9b]. Esta rotina est� na Windows.pas....

F�rum Digitanto tudo em MAI�SCULO no Memo. #195106