Bloquer nombre de ligne d'un TMemo

**dederfred** · 21/11/2006, 17h23

bloquer en nombre de ligne un TMemo (on peut bloquer en caractere mais pas en ligne à ce que j'ai vue dans les fonctions du composant si je ne me trompe pas).
comment peut ton faire ?
merci d'avance.

**anapurna** · 21/11/2006, 17h35

salut

regarde la propriété maxlength

@+ Phil

**dederfred** · 21/11/2006, 20h49

Cette propriété est faite pour un certain nombre de caractere.
Mais pas pour un nombre de ligne malheuresement

**Herk77** · 21/11/2006, 20h54

Sur le OnChange tu dois pouvoir tester le nombre de ligne grace à la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Memo1.Lines.Count

Donc tu annules la frappe quand tu as le nombre max de ligne.

**Herk77** · 22/11/2006, 10h41

Sur le OnKeyPress du Memo tu mets ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if (TMemo(Sender).Lines.Count = (NbLignesMax - 1)) and (Key = #13) then Key := #0;
end;

où NbLignesMax est un entier qui a pour valeur le nombre maximum de ligne de ton Memo.