Memo em maiúsculo
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
Curtidas 0
Melhor post
Excon
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
GOSTEI 1
Mais Respostas
Renatoricci
25/03/2003
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
GOSTEI 0
Anonymous
25/03/2003
Valeu, Renato, funcionou!
T+
T+
GOSTEI 0
Anonymous
25/03/2003
Que bom que tenha funcionado, fico feliz em saber..
T+
T+
GOSTEI 0