Discussion :

[jamesb]

Bonjour,

Je developpe un système de chat simple, et j'affiche chaque message dans un TMemo, j'aurais un problème c'est que quand cette fenêtre est reduite, le scroll reste à la même position, il faudrait qu'il se mettent tout en bas, comment faire ?

Merci d'avance

[Neo41]

Bonjour,

voici une astuce qui marche pas mal:

Code :

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

1
2
3
4
 
Memo1->SelStart = 0;
Memo1->SelLength = Memo1->Text.Length();
Memo1->SelStart = 0;

Tu implémentes ça sur l'événement OnResize (ou ailleurs comme tu veux ;-) )

[jamesb]

C'est excellent. On peut soustraire la taille total du message reçu à la taille du TMemo donc ça va au début de dernier message, super vraiment merci !

Voici mon code :

Code :

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

1
2
3
  Form2->MsgReChamp->SelStart = 0;
  Form2->MsgReChamp->SelLength = Form2->MsgReChamp->Text.Length()-Msg.Length();
  Form2->MsgReChamp->SelStart = 0;

La variable Msg est le message reçu, MsgReChamp est le TMemo.