Como se faz isso num Edit ?

Delphi

07/03/2004

Pessoal, é o seguinte:

Certa vez, em uma aplicação, vi um lance interessante.... era um edit que representava o campo Nome. Ai, quando o cara digitava, automaticamente a primeira letra do nome ficara em maísculo, e a medida que ele ia completando com o sobrenome, este também tinha a sua primeira letra em maisculo... vejam, vou dar um exemplo:

se vc digitar no edit isso: paulo silva carneiro

depois que vc passasse pra outro campo no formulário, o edit ficava automaticamente assim:

Paulo Silva Carneiro


alguem sabe como fazer isso?


Tiagoharris

Tiagoharris

Curtidas 0

Respostas

Logado

Logado

07/03/2004

Basta no evnto OnExit do dbedit vc chamar uma função que realiza está modificação.
Quanto a função vc pode desenvolve-la (eh bastante simples) ou pega-la pronta ai pela net.

Valeu!


GOSTEI 0
Tiagoharris

Tiagoharris

07/03/2004

Sim, claro, mas eu quero justamente esta funçao, por isso que abri este tópico

Alguem tem ai ?


GOSTEI 0
Cebikyn

Cebikyn

07/03/2004

Sim, eu tenho:

Function  MixCase(InString: String): String;
var I: Integer;
begin
  Result := LowerCase(InString);
  Result[1] := UpCase(Result[1]);
  for I := 1 to Length(InString) - 1 do begin
    if (Result[I] = ´ ´) or (Result[I] = ´´´´) or (Result[I] = ´"´)
    or (Result[I] = ´-´) or (Result[I] = ´.´)  or (Result[I] = ´(´) then
      Result[I + 1] := UpCase(Result[I + 1]);
  end;
end;



GOSTEI 0
Tiagoharris

Tiagoharris

07/03/2004

valeuuuuuu cara, muito obrigado!!


GOSTEI 0
POSTAR