Fórum Como se faz isso num Edit ? #218881

07/03/2004

0

Delphi

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

Responder

Posts

07/03/2004

Logado

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!


Responder

Gostei + 0

07/03/2004

Tiagoharris

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

Alguem tem ai ?


Responder

Gostei + 0

07/03/2004

Cebikyn

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;



Responder

Gostei + 0

07/03/2004

Tiagoharris

valeuuuuuu cara, muito obrigado!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar