Memo Mai�sculo

Question

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....

Nildo · Answer

Coloca no OnKeyPress:Key := UpperCase(Key)Soh issu!...

Jos� Ramos · Answer

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

Nildo · Answer

Ao invez de usar o String[1], use  tipo Char...

Barcelos · Answer

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,Barcelososbarcelos@hotmail.com...

F�rum Memo Mai�sculo #175843