Olá Ricardo ( xará :p ) Coloca no Memo o MaxLengh com a quantidade máxima de caracteres e no onKeyPress do Memo coloca o seguinte código:
Label1.Caption := 'Restam ' + IntToStr( Memo1.MaxLength - Length(Memo1.Text) ) Bom Código Ricardo Berti ----- Original Message ----- From: Ricardo Ravelli To: delphi-br@yahoogrupos.com.br Sent: Friday, January 19, 2007 11:16 AM Subject: [delphi-br] Contador Regressivo de Caracteres em um Memo Bom dia a todos. Tenho um Label no qual eu queria mostrar qtos caracteres ainda falta para o usuário digitar dentro de um memo. Alguém tem alguma função que faça isso. obrigado. Ricardo Ravelli. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]