• Bem vindo à nossa comunidade - Quer se juntar ao resto dos nossos membros? Registre-se*Registros aprovados pela adminitração

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

XSystemX

Usuário XPZ
-O que é?
Efeito comum no Flash, no qual o texto vai aparecendo letra por letra.

-Nível de dificuldade?
Iniciante.

-O código é difícil de entender?
Não.

-"comofas/"

1º - Crie um timer e um label.

2º - Embaixo de:
var
  Form1: TForm1;
Declare:
  texto : String;
  i : integer;

3º - 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;

4º - No código do Timer, adicione o seguinte código:
begin
if i <= Length(texto) then
begin
Label1.Caption := Label1.Caption+texto;
i := i+1;
end
else
Timer1.Enabled := False;
end;





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
Label1.Caption := Label1.Caption+texto;
i := i+1;
end
else
begin
i := 1;
Label1.Caption := '';
end;
end;

Créditos : Dudaxan
 
Topo Bottom