[Delphi]Question con......

Question con...... [Delphi] - Delphi/Pascal - Programmation

Marsh Posté le 02-11-2001 à 14:09:12    

Un truc tout bête mais que j'arrive pas à trouver....
G un TRichEdit avec un ascenseur vertical et je voudrait que quand j'ajoute une ligne tout en bas elle reste visible (que l'ascenseur descende) pour tjs voir la dernière ligne entrée...
(J'espère que G été clair....... :pt1cable: )
Merci pour toute réponse


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 02-11-2001 à 14:09:12   

Reply

Marsh Posté le 02-11-2001 à 15:03:27    

C bon G trouvé tout seul  :D  
Je donne la soluce  ;)  
 
var
  i : Integer;
  ScrollMessage:TWMVScroll;
...
  RichEdit1.Lines.Add('<Serveur> ' + EditMessage.Text);
  ScrollMessage.Msg:=WM_VScroll;
  ScrollMessage.ScrollCode:=sb_LineDown;
  RichEdit1.Dispatch(ScrollMessage);
...

 

[edtdd]--Message édité par [SDF]Poire--[/edtdd]


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Marsh Posté le 19-12-2001 à 20:08:05    

Une chtite fonction pour scroler en bas de page  :D  
 
procedure Scroll(Sender: TObject);
var
  ScrollMessage:TWMVScroll;
begin
  ScrollMessage.Msg:=WM_VScroll;
  ScrollMessage.ScrollCode:=sb_Bottom;
  Sender.Dispatch(ScrollMessage);
end;


---------------
Des bons sites pour Delphi? http://forum.hardware.fr/forum2.php3?post=16838&cat=10 -- informaticien -- http://www.z0rglub.com/phpwebgallery/ -- Delphi :love:
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed