[Tutorial] Efeito Digitação: Letra por Letra

['Lenneth 486]

Adicione :

1 Timer

1 *****

 

1º- Embaixo de:

var

Form1: TForm1;

 

Declare:

texto : String;

i : integer;

 

2º- No evento FormCreate, adicione o seguinte código:

begin

texto := 'Não é necessário digitar letra por letra. O programa faz tudo!';

i := 1;

end;

 

3º- No código do Timer, adicione o seguinte código:

begin

if i <= Length(texto) then

begin

*****1.Caption := *****1.Caption+texto;

i := i+1;

end

else

Timer1.Enabled := False;

end;

 

Dica

Para o efeito ficar repetindo, siga as instruções até o número 3, substituindo o código no 4 por esse:

begin

if i <= Length(texto) then

begin

*****1.Caption := *****1.Caption+texto;

i := i+1;

end

else

begin

i := 1;

*****1.Caption := '';

end;

end;

By:Before123

[thbgohan 0]

oq são esses ****** ?

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Lf' 6]

24 Horas para colocar os devidos créditos, ou o tópico será fechado!

 

@thbgohan

o do começo está escrito l-a-b-e-l

[TheKr4tosD 0]

Muito loko nunca tinha visto.........