Digitanto tudo em MAIÚSCULO no Memo.
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.
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.
Orlando Frade
Curtidas 0
Respostas
Rafael Mattos
14/11/2003
No evento KeyPress;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= Upcase(Key);
end;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= Upcase(Key);
end;
GOSTEI 0
Orlando Frade
14/11/2003
Essa função não funciona quando é digitado alguma letra com acentto.
Ex: ELE é O .....
Ex: ELE é O .....
No evento KeyPress;
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
Key:= Upcase(Key);
end;
GOSTEI 0
Marcelo.c
14/11/2003
Experimente utilizar [b:4a3cb20e3d]AnsiUpperCase[/b:4a3cb20e3d].
GOSTEI 0
Beppe
14/11/2003
Assim é mais eficiente:
CharUpperBuf(@Key, 1);
CharUpperBuf(@Key, 1);
GOSTEI 0
Orlando Frade
14/11/2003
Assim é mais eficiente:
CharUpperBuf(@Key, 1);
Eu tentei usar assim, mas deu erro.
> Undeclared identifier CharUpperBuf
procedure TFrmFornecedores.MeObsKeyPress(Sender: TObject; var Key: Char);
begin
Key := CharUpperBuf(@Key, 1);
end;
GOSTEI 0
Beppe
14/11/2003
Ops, ato falho. O correto é CharUpperBuf[b:526565ae9b]f[/b:526565ae9b]. Esta rotina está na Windows.pas.
GOSTEI 0