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.

Jump to content

Bem-Vindo ao FX Studios Fórum!
Cadastre-se agora para obter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, ganhar reputação e competir com seus companheiros, receber e enviar mensagens privadas para outro usuário, atualizar status, modificar o seu perfil e muito mais. (Essa mensagem será removida após logar-se.)
Entrar Criar uma conta!

Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

#1
 
iKru3NsTz Mod

avatar
Membro Extreme
Membro Extreme
-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


Permissão deste fórum:
Você não pode responder aos tópicos neste fórum

 

Bem-VindosSe você ainda não tem uma conta, clique aqui para fazer uma.