Galera, com a rotina abaixo eu quase conegui chegar no que eu quero.
Coloquei um timer, interval = 2000.
O problema é que ele ta muito rápido e fica parado muito tempo no final da
ultima letra. Algupém tem uma saída mais
"elegante"?
Obs: testei várias configurações e não cheguei num número ideal.....por
isso, não sei se a solução seria via programação ou
ajuste de números mesmo.
procedure TForm1.Timer1Timer(Sender: TObject);
var
i, a : integer;
begin
application.ProcessMessages;
for a := 1 to length(edit1.text) do
begin
label1.Caption := copy(edit1.Text,1,a-1) +
uppercase(copy(edit1.text,a,1)) +
copy(edit1.text,a+1,length(edit1.text)-(a-1));
application.ProcessMessages;
sleep(100);
end;
end;
~\\|//~
-(o o)-
o--------------oOOOo--(_)--oOOOo-------------o
| |
| Eduardo de Almeida Silva |
| Câmara Municipal de Lençóis Paulista |
| [EMAIL PROTECTED] - (14)3263-0326 |
| |
| .oooO Oooo. |
o----------------( )---( )---------------o
\ ( ) /
\_) (_/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
