FX Studios - Fórum
Olá,

Seja bem-vindo (a) ao FX Studios
Você só poderá postar mensagens ou criar fóruns se tiver registrado no nosso fórum
Se ainda não tem conta clique em "Registrar-se"
Se já tiver basta fazer login,
Não é necessário ativar sua conta, é só se registrar e logar
Se preferir, conecte usando o Facebook
Muito obrigado pela sua visita.
FX Studios - Fórum


 
InícioInício  GaleriaGaleria  BuscarBuscar  Registrar-seRegistrar-se  Conectar-se  

Compartilhe
 

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

Ir em baixo 
AutorMensagem
iKru3NsTz Mod
Membro Extreme
Membro Extreme
iKru3NsTz Mod

Mensagens : 129
Idade : 21
Reputação : 12
Data de inscrição : 05/08/2011
Ocorrências : 65/100
Clã : NoFlex

[Tutorial] Efeito Digitação: Letra por Letra Empty
MensagemAssunto: [Tutorial] Efeito Digitação: Letra por Letra   [Tutorial] Efeito Digitação: Letra por Letra EmptySex Maio 15, 2015 10:18 am

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

Créditos : Dudaxan
Voltar ao Topo Ir em baixo
 
[Tutorial] Efeito Digitação: Letra por Letra
Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
FX Studios - Fórum :: Programação :: Delphi-
Ir para: