Componente Memo ou RichEdit
23/03/2003
0
Caro :?: colegas, como posso limitar o numero de linhas em um componente Memo ou RichEdit. Agradeço antecipadamente
Anonymous
Curtir tópico
+ 0
Responder
Posts
23/03/2003
Carnette
Caro :?: colegas, como posso limitar o numero de linhas em um componente Memo ou RichEdit. Agradeço antecipadamente
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if ((key = chr(13)) and (Memo1.Lines.Count = 3)) then key:= chr(27);
if Memo1.Lines.Count > 3 then
begin
Memo1.Lines.Delete(3);
key:= chr(0);
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)