letras maiusculas no dbedit
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
Curtidas 0
Respostas
Gandalf.nho
03/06/2005
Sete a propriedade CharCase para ecUpperCase
GOSTEI 0
Elison Faria
03/06/2005
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;
GOSTEI 0