Memo Maiúsculo
e ai galera blz?
Minha duvida é simples. Como eu faço pra deixar o conteúdo de um memo sempre maiúsculo a medida q eu digito como se o caps lock estivesse ligado?
Desde já agradeço.
VALEU.
Minha duvida é simples. Como eu faço pra deixar o conteúdo de um memo sempre maiúsculo a medida q eu digito como se o caps lock estivesse ligado?
Desde já agradeço.
VALEU.
Toshio Bruno
Curtidas 0
Respostas
Nildo
19/08/2003
Coloca no OnKeyPress:
Key := UpperCase(Key)
Soh issu!
Key := UpperCase(Key)
Soh issu!
GOSTEI 0
José Ramos
19/08/2003
Caro colega eu uso a rotina abaixo para fazer com que fique tudo em maiuscula sem se necessário o caps lock estatr ligado.
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var conv : string[1];
begin
conv := ansiuppercase(key);
key := conv[1];
end;
Espero ter ajudado
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var conv : string[1];
begin
conv := ansiuppercase(key);
key := conv[1];
end;
Espero ter ajudado
GOSTEI 0
Nildo
19/08/2003
Ao invez de usar o String[1], use tipo Char
GOSTEI 0
Barcelos
19/08/2003
Caro amigo,
Não sei se uso a melhor solução, mas é a que considero mais simples:
No evento KeyPress do Memo tente colocar:
TEdit(Memo1).CharCase := ecUpperCase;
Sempre funcionou comigo.
Abraço,
Barcelos
osbarcelos@hotmail.com
Não sei se uso a melhor solução, mas é a que considero mais simples:
No evento KeyPress do Memo tente colocar:
TEdit(Memo1).CharCase := ecUpperCase;
Sempre funcionou comigo.
Abraço,
Barcelos
osbarcelos@hotmail.com
GOSTEI 0