MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[Tutorial] Contagem Regressiva de Caracteres

Ir para baixo

[Tutorial] Contagem Regressiva de Caracteres Empty [Tutorial] Contagem Regressiva de Caracteres

Mensagem por Thales12 Qui 10 Mar 2011, 19:51

Eae galera (:

Vamos aprender a fazer uma contagem de caracteres.

Adicione:


Quote1 Memo
1 Label


No Memo vá em Lines e retire a que tiver

Abra seu Unit1

Aonde tem

var
Form1: TForm1;

De 2 Enter's
e Adicione:
Código:
const
MAX_TEXT = 250;
[Tutorial] Contagem Regressiva de Caracteres Rc_-1290281679-U19824



Agora clique no Memo e vá na Aba Events>OnChange e Digite Change, irá abrir uma janela de codigos
Embaixo de begin digite
:

Código:
Label1.Caption := 'Caracteres Restantes: ' + IntToStr(MAX_TEXT - Length(Memo1.Text));
[Tutorial] Contagem Regressiva de Caracteres Rc_-1290282215-U19824


E entao clique duas veses no seu Memo e debaixo de begin digite:

Código:
Memo1.MaxLength := MAX_TEXT;
[Tutorial] Contagem Regressiva de Caracteres Rc_-1290282651-U19824


e Pronto.

Créditos: Chuck Norris
Créditos: A mim por postar.
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

Ir para o topo


 
Permissões neste sub-fórum
Não podes responder a tópicos