[Delphi]Limiter le nombre de ligne dans un Memo ?

Limiter le nombre de ligne dans un Memo ? [Delphi] - Delphi/Pascal - Programmation

Marsh Posté le 25-04-2006 à 12:41:08    

Bonjour ( °°).
Voilà, dernièrement je travaille sur un petit programme et, j'aimerai pouvoir limiter le nombre de ligne d'un Tmemo (4 lignes max). J'ai fais plusieurs recherches sur google, mais le seul site, dont la description correspondait à ce que je voulais, n'existe plus ;). La limitation de caractère ne convient pas à ma requête, donc ça aussi... :s
 
Quelqu'un aurait-il une astuce ?!
Par avance, merci.
 
Amicalement.


---------------

Reply

Marsh Posté le 25-04-2006 à 12:41:08   

Reply

Marsh Posté le 03-09-2007 à 10:04:44    

Bonjour,
 
Il ya un moyen simple :  
 
sur l'événement OnKeyPress de ton Tmemo :
 
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
var
Maxlines:integer;
begin
if (Memo1.Lines.Count = Maxlines) then
if Key = #13 then Key:=#0;
end;
 
Apres à toi de l'adapter comme il faut. :p
 
J'envoi la réponse au cas ou d'autres personnes en auraient besoin  :)  !! Car le principal intéressé a surement deja trouvé.


Message édité par dede_367 le 03-09-2007 à 10:09:03
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed