Fórum letras maiusculas no dbedit #283770
03/06/2005
0
ola galera
como eu faço para que as letras digitadas num dbedit e num edit sejam sempre maiusculas.
valeu
como eu faço para que as letras digitadas num dbedit e num edit sejam sempre maiusculas.
valeu
Radolpho
Curtir tópico
+ 0
Responder
Posts
03/06/2005
Gandalf.nho
Sete a propriedade CharCase para ecUpperCase
Responder
Gostei + 0
17/08/2020
Elison Faria
se for apenas algumas legras, assim ficará melhor
procedure TFForm1.DBEdi1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in['s','S','n','N']) then Key := UpCase(Key) else Key := #0
end;
neste caso, aceita apenas as letras s,S,n,N, mas você poderá ajustar conforme sua necessidade;
procedure TFForm1.DBEdi1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key in['s','S','n','N']) then Key := UpCase(Key) else Key := #0
end;
neste caso, aceita apenas as letras s,S,n,N, mas você poderá ajustar conforme sua necessidade;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)