Memo em maiúsculo
25/03/2003
0
tenho uma dúvida e se alguém puder me ajudar agradeço.
Gostaria de deixar o componente memo1 receber somente caracteres
maiúsculos. Usei isto aqui:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´a´ .. ´z´] then
Key :=UpCase(Key);
end;
Realmente isto deixa os caracteres em maiúsculos, mas quando é
digitada alguma palavra com acento esta fica em minúsculo.
Como faço para acertar isto?
:)
Gostaria de deixar o componente memo1 receber somente caracteres
maiúsculos. Usei isto aqui:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in [´a´ .. ´z´] then
Key :=UpCase(Key);
end;
Realmente isto deixa os caracteres em maiúsculos, mas quando é
digitada alguma palavra com acento esta fica em minúsculo.
Como faço para acertar isto?
:)
Ginosam
Curtir tópico
+ 0
Responder
Post mais votado
25/03/2003
Olá;
Coloque no evento on exit do memo.
memo1.text := AnsiUpperCase(memo1.text);
Ao sair do memo, todo o texto é convertido para maiúsculo e preserva a acentuação.
ps. Funcionando ou não avise-me.
gilberto@interport-es.com.br
Coloque no evento on exit do memo.
memo1.text := AnsiUpperCase(memo1.text);
Ao sair do memo, todo o texto é convertido para maiúsculo e preserva a acentuação.
ps. Funcionando ou não avise-me.
gilberto@interport-es.com.br
Excon
Responder
Mais Posts
25/03/2003
Renatoricci
Tenta assim, quem sabe da certo..
{FormKeyPress:=True}
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := AnsiUpperCase(Key)[Length(Key)];
end;
Renato
{FormKeyPress:=True}
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key := AnsiUpperCase(Key)[Length(Key)];
end;
Renato
Responder
Clique aqui para fazer login e interagir na Comunidade :)