Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un TMemo, qui a sa propriété ScrollBar à ssVertical, j'ajoute un nombre de lignes supérieur à sa capacité d'affichage. A la fin de l'ajout, dû à sa capacité affichage, la dernière ligne ajoutée est visible, mais plus la première.

En cliquant sur la ScrollBar, je peux ramener l'affiche sur la première ligne.

Je voudrais faire la même chose par programmation : je n'y arrive pas. La commande suivante n'a aucune action :

Code :

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

    InfoProd.VertScrollBar.Position:= 0;

Une idée de ce qu'il faut faire ?

Cordialement.

Pierre.

[Jipété]

Yep !

Une idée de ce qu'il faut faire ?

Code :

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

    InfoProd.SelStart := 0;

Mais le caret disparait. Il y a peut-être une autre commande pour l'afficher, je n'en sais rien je n'en ai jamais eu besoin.

[ChPr]

Merci Jipété. Pas grave pour le caret, je suis en readOnly.

J'avais aussi essayé

Code :

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

InfoProd.CaretPos:= Point(0, 0);

Mais ça ne fonctionnait pas non plus.

Cordialement.

Pierre.

[anapurna]

salut

sous windows

Code :

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

1
2
 
SendMessage(Memo.Handle, EM_SCROLLCARET, 0, 0);

[Guesset]

Bonjour,

Il faut faire attention avec l'unité Windows qui amène sa propre définition de TPoint (coordonnées flottantes). Comme la définition par défaut est la dernière, si on ne veut pas prendre en compte celle de Windows, il faut déclarer son unité dans les premières de la clause uses.

Salutations