Limiter le nombre de lignes dans un TMemo

Version imprimable

13/03/2014, 16h42
Stevens.Georges

Limiter le nombre de lignes dans un TMemo

D4 WXP

Bonjour à tous,

Comment limiter le nombre de lignes que l'utilisateur pourra entrer dans un TMemo ?

Autrement dit, la hauteur du TMemo étant définie, comment faire pour que l'utilisateur ne puisse pas entrer plus de lignes que ce que peut contenir le TMMemo ?

Pas trouvé dans les FAQ.

Merci d'avance.

salut ,

il faut tester la ligne courante du Memo dans le OnkeyPress par exemple.

Code:

1
2
3
4
5
6
7
8
 
 
procedure TForm7.Memo1KeyPress(Sender: TObject; var Key: Char);
var Ligne:integer ;
begin
    Ligne:=SendMessage(memo1.Handle,EM_LineFromChar,memo1.SelStart,0) ;
    if Ligne = 5 then key:=#0;
end;

13/03/2014, 17h47
Stevens.Georges

Limiter le nombre de lignes dans un TMemo

Merci petitcoucou31.

Ca marche mais l'utilisateur ne peut plus revenir en arrière avec la touche Retour;
13/03/2014, 22h25
sgmsg
Citation:

Envoyé par Stevens.Georges

Merci petitcoucou31.

Ca marche mais l'utilisateur ne peut plus revenir en arrière avec la touche Retour;

Il faut simuler la touche "flèche haut"

Sinon ceci devrait fonctionner:
Code:

1 2 3 if Memo1.Lines.Count > 5 then Memo1.Lines.Delete(Memo1.Lines.Count);
13/03/2014, 23h17
Andnotor

Citation:

Envoyé par Stevens.Georges

la hauteur du TMemo étant définie, comment faire pour que l'utilisateur ne puisse pas entrer plus de lignes que ce que peut contenir le TMMemo ?

Et la largeur est fixe elle ? Word wrap, pas word wrap ? Quelle utilité ?

Citation:

Envoyé par petitcoucou31

il faut tester la ligne courante du Memo dans le OnkeyPress

On peut donc ajouter autant de ligne qu'on le souhaite pour autant qu'on édite pas la ligne 5 ;)
14/03/2014, 10h55
Stevens.Georges

Limiter le nombre de lignes dans un TMemo

Oui, la largeur est fixe mais elle n'intervient pas dans le problème. En effet, la limitation du nombre de lignes doit fonctionner même si l'utilisateur entre un seul caractère par ligne.

Merci à tous de votre aide mais, sauf erreur de ma part, les solutions proposées jusqu'à maintenant ne fonctionne pas correctement.
15/03/2014, 11h14
tourlourou

En réglant TMemo.MaxLength au nombre de lignes * caractères par ligne (avec une police non proportionnelle) ?

Bonjour,

Citation:

Ca marche mais l'utilisateur ne peut plus revenir en arrière avec la touche Retour;

Avec une petite modif comme suit ça devrait gazer :
Code:

1 2 3 4 5 6 procedure TForm7.Memo1KeyPress(Sender: TObject; var Key: Char); var Ligne:integer ; begin Ligne:=SendMessage(memo1.Handle,EM_LineFromChar,memo1.SelStart,0) ; if Ligne = 5 then key:=#08; // key:=#0; end;
avec key:=#08 = BackSpace le retour est automatique.

A+. :D

15/03/2014, 14h45
Stevens.Georges

Merci tourlourou. Oui ça devrait marcher mais c'est dommage d'avoir la contrainte d'une police non proportionnelle.

Merci Gilbert Geyer, ça marche en effet si étant à la dernière ligne l'utilisateur presse une touche de caractère, mais pas si il presse la touche Entrée auquel cas ça passe bel et bien à la ligne suivante.

Encore merci à tous les deux.
15/03/2014, 15h15
Gilbert Geyer

Re-salut,

Citation:

Merci Gilbert Geyer, ça marche en effet si étant à la dernière ligne l'utilisateur presse une touche de caractère, mais pas si il presse la touche Entrée auquel cas ça passe bel et bien à la ligne suivante.

Bin, dans ce cas if (Ligne = 5) or (key=#13) then key:=#08;

A+.
16/03/2014, 11h00
Stevens.Georges

Merci Gilbert Geyer mais ça ne marche pas.

Fais un bout d'essai et tu verras que plus aucune touche ne répond à l'exception de Entrée, ce qui fait que l'utilisateur ne peut plus rien écrire dans le Memo.

A+.

Bonjour,

Citation:

Stevens.Georges : Fais un bout d'essai et tu verras ...

Oui, Oups !!! :oops:, j'ai vu.

Mais ce code marche :D :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var Li, Co, i: integer; 
begin
  if Memo1.Lines.Count > 5 then begin
    for i := Memo1.Lines.Count - 1 downto 6 do Memo1.lines.Delete(i);
  end;
  with Memo1.CaretPos do begin Co := X; Li := Y; end;
  if (Li = 5) and (key = #13) then key := #0;
end;
 
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Li, Co: integer; S: string;
begin
  with Memo1.CaretPos do begin Co := X; Li := Y; end;
  StatusBar1.Panels[0].Text := Format(' Col %d Li %d', [Co, Li]); StatusBar1.Update;
  if (Li = 5) then begin
    S := Memo1.Lines[5];
    case Key of
      VK_RETURN, VK_DOWN: Key := 0;
      VK_RIGHT: begin if Co >= length(S) then Key := VK_BACK; end;
    end;
  end;
end;

Je n'ai pas trouvé plus simple car KeyPress laissait passer les touches du pavé de flèches, et l'insertion de texte dans le texte rallongeait bien entendu la longueur et le nombre de lignes.

A+.:D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if memo1.lines.count<6 then timer1.enabled:=false else begin
       keybd_event(VK_Back,0,0,0); //enfoncer
       keybd_event(VK_Back,0,KEYEVENTF_KEYUP,0); //relever touche
    end;
end;
 
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if memo1.lines.count<6 then exit;
     timer1.Interval:=50;
     timer1.enabled:=true;
end;

Ça fonctionne...

Ça pourrait être plus simple, si cela ne te dérange pas que le timer soit toujours en fonction:

Code:

1
2
3
4
5
6
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if memo1.lines.count<6 then exit;
    keybd_event(VK_Back,0,0,0); //enfoncer
    keybd_event(VK_Back,0,KEYEVENTF_KEYUP,0); //relever touche
end;

Ce qui est en faite la suggestion de mon premier message... 8-)

Finalement si tu n'aimes pas que le curseur se retrouve à la ligne 6 (caret 5) (inspiré de Gilbert):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if memo1.lines.count>5 then begin
       keybd_event(VK_Back,0,0,0); //enfoncer
       keybd_event(VK_Back,0,KEYEVENTF_KEYUP,0); //relever touche
       exit;
    end;
    if memo1.CaretPos.y=5 then begin
       keybd_event(VK_Left,0,0,0); //enfoncer
       keybd_event(VK_Left,0,KEYEVENTF_KEYUP,0); //relever touche
    end;
end;

17/03/2014, 09h33
Gilbert Geyer
Bonjour,

Citation:

sgmsg : Ça pourrait être plus simple...

Effectivement car l'utilisation de Memo1KeyPress était une fausse piste et le Memo1.lines.Delete(i) que j'y avais ajouté à la dernière minute pour tenir compte du cas d'insertion de texte dans le texte (par exemple avec un copier coller de 20 lignes) remplace avantageusement la traque des appuis-touches-clavier de l'utilisateur, d'où la simplification suivante :
Code:

1 2 3 4 5 6 procedure TForm1.Memo1Change(Sender: TObject); var n: integer; begin n := Memo1.Lines.Count; if n > 5 then Memo1.lines.Delete(n - 1); end;
Ce code fonctionne comme une boucle car chaque Delete déclenche un nouvel évènement onChange.

A+. :D
17/03/2014, 11h21
Stevens.Georges

Bonjour et un grand merci à tous les deux Gilbert et sgmsg.

Finalement je pense que je vais adopter le dernier code de sgmsg qui fonctionne parfaitement et est très simple.

Merci encore, j'aurais été incapable de trouver par moi-même la solution.

Citation:

Envoyé par Stevens.Georges

Bonjour et un grand merci à tous les deux Gilbert et sgmsg.

Finalement je pense que je vais adopter le dernier code de sgmsg qui fonctionne parfaitement et est très simple.

Merci encore, j'aurais été incapable de trouver par moi-même la solution.

Voici encore plus simple, efficace, professionnel (pas de décalage de curseur animé qui fait marche arrière visuellement) et... inspiré de Gilbert ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Memo1Change(Sender: TObject); begin if memo1.lines.count>5 then begin memo1.lines.delete(5); exit; end; if memo1.CaretPos.y=5 then begin keybd_event(VK_Left,0,0,0); //enfoncer keybd_event(VK_Left,0,KEYEVENTF_KEYUP,0); //relever touche end; end;

Citation:
Envoyé par sgmsg
Voici encore plus simple, efficace, professionnel (pas de décalage de curseur animé qui fait marche arrière visuellement) et... inspiré de Gilbert ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TForm1.Memo1Change(Sender: TObject); begin if memo1.lines.count>5 then begin memo1.lines.delete(5); exit; end; if memo1.CaretPos.y=5 then begin keybd_event(VK_Left,0,0,0); //enfoncer keybd_event(VK_Left,0,KEYEVENTF_KEYUP,0); //relever touche end; end;
C'est super !