Discussion :

[dederfred]

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]

salut

regarde la propriété maxlength

@+ Phil

[dederfred]

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

[Herk77]

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]

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.

[denokan]

avec cette méthode il faudra aussi penser à intercepter le copier coller

[Herk77]

Ou alors tu te fais ton composant Memo perso qui gère un nombre de ligne maximum.