Texte déroulant dans Memo [Résolu]

ndlh721 7 Messages postés mercredi 6 juillet 2011Date d'inscription 25 mars 2015 Dernière intervention - 27 janv. 2005 à 05:41 - Dernière réponse : JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention
- 27 janv. 2005 à 20:09
Bonjour,

Comment faire défiler automatiquement un texte de bas en haut dans un

composant MEMO dans Delphi 3 de sorte que le texte disparaisse vers le haut ?
Merci !

ndlh721@yahoo.com
Nidal Henoud
Afficher la suite 

4 réponses

Répondre au sujet
jmp77 1232 Messages postés lundi 4 février 2002Date d'inscription 4 octobre 2006 Dernière intervention - 27 janv. 2005 à 09:24
+3
Utile
Hello,



Tiens regarde cette source c'est ce que tu cherches :

http://www.delphifr.com/code.aspx?ID=12760

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmp77
jmp77 1232 Messages postés lundi 4 février 2002Date d'inscription 4 octobre 2006 Dernière intervention - 27 janv. 2005 à 15:31
+3
Utile
hello,

Dans ton timer mets : SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jmp77
ndlh721 7 Messages postés mercredi 6 juillet 2011Date d'inscription 25 mars 2015 Dernière intervention - 27 janv. 2005 à 15:20
0
Utile
Bonjour,

Merci pour le code. Il est très utile mais il ne fait pas ce que je veux.

Je m'explique.

Je voudrais faire défiler du texte dans un Mémo ou un RichEdit dans lequel

j'ai déjà tapé du texte dans la propriété "String", sans activation la barre de défilement

du composant.

On retrouve souvent de défilement dans les boîtes "A propos".



J'ai placé dans une forme :

- un composant "Timer"

- un composant "RichEdit".

J'ai tapé le code suivant :



Procedure TForm1.Timer1Timer(Sender: TObject);

Var

DeltaX:integer ;

DeltaY:integer;



begin

DeltaX:=0;

DeltaY:=0;

RichEdit1.scrollby(DeltaX,DeltaY-2);



end;


Mais voilà que le texte défile vers le haut mais me montre uniquement une partie

du texte.

Que manque-t-il à ce code ? Que faut-il faire à votre avis ?



Le problème des manuels de Delphi 3 Pro est qu'ils n'abordent pas tous les aspects

de la programmation sous Delphi et qu'ils manquent d'exemples concrets. Les manuels

sont trop descriptifs et n'abordent pas le côté pratique de la programmation.

Heureusement que votre site existe.

Merci beaucoup
Nidal Henoud
Commenter la réponse de ndlh721
JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention - 27 janv. 2005 à 20:09
0
Utile
mais JMP, pourquoi tu cries ? lol (sisi le texte en bleu là, le pavé :p)
Commenter la réponse de JulioDelphi

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.