F�cil mas eu n�o sei! Digitar apenas ma�scula em todos os...

Question

Ol� tudo bem ?Estou com uma d�vida simples de se resolver e preciso de uma informa��o.Como fa�o para habilitar o teclado somente com letras mai�sculas?Obrigado por sua aten��o!...

Rafael Heise · Answer

Se voc� quer usar num TEdit, existe uma propriedade CharCase que voc� escolhe se � para ser Nomal, min�sculas ou MAI�SCULAS...
n�o tenho certeza mas acho que TRichEdit, TMemo tamb�m usam ... e todos os componentes derivados.. ent�o . de uma olhadinha que provavelmente voc� vai achar. qualquer coisa.. mensagem ai ...
abra�os...

Anonymous · Answer

Outra solu��o � a seguinte:coloque as seguintes linhas de c�digo no evento OnKeyPress do componente que receber� o texto:if not (Key in[�A�..�Z�]) then  Key := #0;para aceitar minusculas tamb�m fa�a o seguinte:if not (Key in[�A�..�Z�, �a�..�z�]) then  Key := 0;...

Sandrodantas · Answer

Valeu zerneo, muito obrigado!...

Renatoricci · Answer

{FormKeyPress:=True}procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);beginKey := AnsiUpperCase(Key)[Length(Key)];end;Renato...

Dor_poa · Answer

Caso queira jogar uma string em MAI�SCULAS :  edit.text :=   UpperCase(variavel ou valor)...