PB Tscrollbox [Résolu]

furax13 90 Messages postés mardi 28 octobre 2003Date d'inscription 24 avril 2008 Dernière intervention - 12 oct. 2007 à 15:54 - Dernière réponse : furax13 90 Messages postés mardi 28 octobre 2003Date d'inscription 24 avril 2008 Dernière intervention
- 16 oct. 2007 à 11:46
bonjour,


j'ai un souci avec le composant TScrollbox.


Par code, j'ajoute des cases à cocher et un label.

Je sélectionne ensuite les cases à cocher relatives à des données à afficher dans un Tchart.

En cliquant sur l'onglet Graph1, je récupère les données sélectionnées et je garde en mémoire la dernière cases qui a été cochées.
J'ai également sauvegardé la position du scrollbar du Tscolbox (scrollbox1.VertScrollBar.ScrollPos;)
Lorsque je reviens dans l'onglet Select1, j'aimerais que le scrollbox soit positionné sur la dernière position et non tout en haut.

Comment faire?

merci beaucoup
emmanuel
Afficher la suite 

2 réponses

Répondre au sujet
furax13 90 Messages postés mardi 28 octobre 2003Date d'inscription 24 avril 2008 Dernière intervention - 16 oct. 2007 à 11:46
+3
Utile
J'ai résolu mon problème de la façon suivante :

procedure TForm1.ScrollBox1Exit(Sender: TObject);
begin
positionS := scrollbox1.VertScrollBar.ScrollPos;
end;

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
  if ligneSelectionnee <> 0 then
  begin
    scrollbox1.vertscrollBar.position := positionS;
    ScrollBox1.SetFocus;
  end;
end;
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de furax13
cs_Jean_Jean 639 Messages postés dimanche 13 août 2006Date d'inscription 5 mai 2016 Dernière intervention - 12 oct. 2007 à 23:44
0
Utile
Où est le problème?
Scrollbar1.position := TaDernierePosition;
Jean_Jean
Commenter la réponse de cs_Jean_Jean

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.