DBMemo somente Letra Minusculas???

[EderDias 0]

OLá.....Sei que no DbMemo para trabalhar só com letras maisculas é:

 

 

procedure TFormEmail.DBMemo1KeyPress(Sender: TObject; var Key: Char);

begin

Key:= UpCase(Key);

end;

e com Letras Minusculas??

 

Grato

[thalesoli 0]

Boa tarde EderDias

 

você pode utilizar esta função abaixo:

 

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);var  aux : string;begin  Key := DnCase(Key);end;function DnCase(Key : Char):Char;var  aux : string;begin  aux := LowerCase(Key);  Result := aux[1];end;

 

espero ter ajudado

 

falow

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[EderDias 0]

beleza...e como ajudou...colega...Mto Grato... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/grin.gif