Contagem Regressiva de caracteres

por Convidad Seg Mar 07 2011, 13:30

Adicione:

Quote1 Memo
1 Label

No Memo vá em Lines e retire a que tiver

Abra seu Unit1

Aonde tem
varForm1:TForm1;

De 2 Enter's
e Adicione:
const
MAX_TEXT =250;

Redimensionado em 35% (1301 x 681) - Clique para ampliar[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Label1.Caption:='Caracteres Restantes: '+IntToStr(MAX_TEXT -Length(Memo1.Text));

Redimensionado em 35% (1302 x 682) - Clique para ampliar[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

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

Memo1.MaxLength:= MAX_TEXT;

Redimensionado em 35% (1301 x 681) - Clique para ampliar[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

Logo após teste, se der tudo certo salve se quiser!

Pronto!

Creditos: Chuck Noris