Discussion :

[delphidebutant]

Bonjour,

Je complète un TMemo en faisant une saisie dans un TEdit.

Je veux que le TMemo affiche les n dernières lignes.

Lorsque je charge un .txt dans le TMemo, pas de pb.

Je fais (cf. FAQ) :

Code :

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

1
2
3
  with Memo1 do
 
                Perform(WM_VSCROLL, SB_BOTTOM,0);

Ça marche, j'ai bien les n dernières lignes (sans ce code, j'ai les n premières).

Ensuite, je mets le focus sur le TEDit, et là,

Plus moyen de pouvoir afficher les n dernières lignes, dès que je rajoute une ligne dans le TMemo, par un retour chariot depuis le TEdit, puis un Memo1.Lines.Add(maChaine).

Une ligne se rajoute, mais le code ci dessus, ainsi que celui-ci affiche toujours les n premières lignes

Code :

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

1
2
3
4
5
6
  with Memo1 do
  begin
    // Aller à la dernière ligne
    SelStart := Length(Text);
    Perform(EM_SCROLLCARET, 0, 0);
  end;

Que je mette le focus sur le TMemo, avant ce code (puis un re-focus sur le TEdit), ou que je garde le code comme là ...nada de chez nada.

Je peux scroller, mais je voudrais que mon ScrollBar se positionne en bas par défaut
Kkun pourrait-il m'aider ?

Merci par avance.

[ero-sennin]

Salut,

Tu peux utiliser l'envoie de Message :

Code :

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

SendMessage(Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);

Exemple :

Code :

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

1
2
3
4
5
procedure TForm1.BtnAddClick(Sender: TObject);
begin
  Memo1.Lines.Add(Edit1.Text);
  SendMessage(Memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);
end;

A+

[Gilbert Geyer]

Salut,

Ceci affiche aussi toujours les n dernières lignes (testé : marche)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var       i : integer;
procedure TfrmImgD.SpeedButton1Click(Sender: TObject);
begin     with memo1 do
          begin inc(i);
                Lines.Add('maChaine'+intToStr(i));
                SelStart := Length(Text);
          end;
end;
 
initialization
 
         i:=0;
 
End.

A+

[delphidebutant]

Bonjour,
J'ai ré-essayé les 2 solutions, et ça marche pas.

Même en rajoutant un SetFocus, avant le Lines.Add, et en laissant le focus sur le TMemo, ce fichu Memo insiste pour afficher les premières lignes , dès que le Lines.Add a été exécuté.

Et je dois scroller à la main

[ero-sennin]

Re,

Il nous faudrait ton code pour voir ... Ma méthode fonctionne très bien, je n'ai pas besoin de faire de SetFocus ou autre ...
Pour t'en convaincre, mais un TEdit, un TMemo et un TButton sur une Form puis mets le code que j'ai posté dans le OnClick du TButton et tu verras par toi même

[delphidebutant]

J'ai trouvé d'où ça venait : je copie le contenu du TMemo dans une TStringList tmp,
et je recopie le contenu de cette TStringList par un Memo1..Lines.Assign(tmp)

Ça me permet de faire un traitement sur le contenu du TMemo, sans mettre le souk.

Sans ce tmp, ça marche.

je vais voir comment gérer la situation.

Recopier tout le tmp, ligne par ligne ??

[Gilbert Geyer]

Re-Salut,

Essaye donc :

Code :

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

1
2
3
4
5
6
 
...
with memo1 do
begin Memo1.Lines.Assign(tmp);
      SelStart := Length(Text);
end;

A+

[delphidebutant]

Merci