Componente Memo ou RichEdit
Caro :?: colegas, como posso limitar o numero de linhas em um componente Memo ou RichEdit. Agradeço antecipadamente
Anonymous
Curtidas 0
Respostas
Carnette
23/03/2003
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;
GOSTEI 0
Anonymous
23/03/2003
:wink: Muito agradecido. e que Deus te abençoe
GOSTEI 0