Não tenho função para isso não mas acho que vc pode tentar fazer o seguinte:
Colocando um Edit chamado "edtTeste" e um Label chamado "lblTeste" num Form
chamado "frmTeste" vc pode colocar o seguinte código no evento "OnKeyPress":
Procedure TfrmTeste.edtTesteKeyPress(Sender: TObject; var Key: Char);
Var
ComprTexto, Restante : Integer;
Begin
ComprTexto := Length(edtTeste.Text);
Restante := edtTeste.MaxLength - ComprTexto;
lblTeste.Caption := '( ' + IntToStr(Restante) + ' caracteres restantes )' ;
End;
Espero que lhe ajude.
[]'s
Ricardo
Ricardo Ravelli <[EMAIL PROTECTED]> escreveu:
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]
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
