Como bloquear a digitaçao no MEMO!

Delphi

03/10/2003

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


Wgm8

Wgm8

Curtidas 0

Respostas

Sousa_thiago

Sousa_thiago

03/10/2003

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;


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ª linha
Isso ai só não vai funcionar se ele colar alguma coisa no memo ...
CTRL+C CTRL+V


GOSTEI 0
Henry Schutz

Henry Schutz

03/10/2003

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 !


GOSTEI 0
POSTAR