Como bloquear a digita�ao no MEMO!

Question

Ap�s 20 linhas n�o quero que o usuario digite mais nada....

Sousa_thiago · Answer

[code:1:bf5cc8e0b6]procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);begin    if Memo1.Lines.Count>=21 then    begin      Memo1.ReadOnly:=true;      memo1.Lines.Delete(memo1.Lines.Count-1);    end;end;[/code:1:bf5cc8e0b6]Acho que isso vai resolver seu problema.Talvez n�o seja a forma mais elegante ... mas foi a forma q eu pensei em resolver isso agora :)linhas se ele tiver 21 ou mais Vai travar o memo ... e deletar a 21� linhaIsso ai s� n�o vai funcionar se ele colar alguma coisa no memo ...CTRL+C CTRL+V...

Henry Schutz · Answer

Bem... acredito q aproveitando o exemplo do thiago, no caso de algu�m colar um texo com mais de 20 linhas, vc poderia usar a propriedade count, e criar um loop decrescente, e ao mesmo tempo ir deletando as linhas at� chegar na linha 20 e parar.

Espero ter ajudado !

Abra�o !

F�rum Como bloquear a digita�ao no MEMO! #186109