PB Tscrollbox
Résolu
furax13
Messages postés
90
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
24 avril 2008
-
12 oct. 2007 à 15:54
furax13 Messages postés 90 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 24 avril 2008 - 16 oct. 2007 à 11:46
furax13 Messages postés 90 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 24 avril 2008 - 16 oct. 2007 à 11:46
2 réponses
furax13
Messages postés
90
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
24 avril 2008
16 oct. 2007 à 11:46
16 oct. 2007 à 11:46
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;
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;
cs_Jean_Jean
Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
3
12 oct. 2007 à 23:44
12 oct. 2007 à 23:44
Où est le problème?
Scrollbar1.position := TaDernierePosition;
Jean_Jean
Scrollbar1.position := TaDernierePosition;
Jean_Jean
