Limiter le nombre de lignes dans un TMemo

**Stevens.Georges** · 05/05/2015, 15h54

Bonjour à tous.

J'ai un TMemo nommé MemoH et sa propriété Height étant telle que lorsque l'utilisateur a écrit jusqu'à la ligne 18 toute la hauteur est utilisée ; la première ligne est encore visible et la ligne 18 se trouve en bas du TMemo.

Avec le code ci-dessous lorsque l'utilisateur clique sur un Retour Chariot il ne se passe rien. Il ne peut donc pas passer à la ligne suivante et c'est ce que je veux.

Code :

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

1
2
3
4
5
 
procedure TCruciFiche.MemoHKeyPress(Sender: TObject; var Key: Char);
begin
  if (MemoH.Lines.Count>=18) and (Key=#13) then Key:=#0;
end;

Que faut-il ajouter à ce code pour que lorsque l'utilisateur écrit sur la ligne 18 et atteint son bord droit (width) il ne se passe de même rien et qu'il n'y ait pas un Retour Chariot automatique.

Merci d'avance.

**Lung** · 05/05/2015, 16h07

Une piste :
Pour un problème similaire, j'avais utilisé une police régulière, ce qui me permettait de compter le nombre de caractères écrits dans une ligne (et d'agir en conséquence).

**sgmsg** · 05/05/2015, 16h37

Est-ce que ça [limiter-nombre-lignes-tmemo] peut aider ?

Enfin même question... mêmes intervenants. Je viens de tester et ça fonctionne toujours aussi bien...

Si il y a quelque chose de différent (hormis le nombre de lignes à limiter), la question n'est pas clair...

**ALWEBER** · 05/05/2015, 16h51

Code :

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

1
2
3
4
5
6
7
 
  if (Memo1.Lines.Count < 18) then
    exit;
  if (Key = #13) then
    Key := #0;
  if (Length(Memo1.Lines[Memo1.Lines.Count - 1]) = 10) and (Key <> #8) then
    Key := #0;

Après il y a d'autre cas à gérer. 10 correspond au nombre max de caractères sur la dernière ligne.