Scrollbox

Résolu
Signaler
Messages postés
69
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
17 septembre 2010
-
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
-
Bonjour je a tous est toutes je ne sait si une personne pour et merdes mes je voudrait savoir comment peut ton faire pour passer de la scrollbox 1 a la scrollbox 2 en mettent un bouton suivant est que des que long clique sur se bouton on passe de la scrollbox 1 a la 2 il me ferme la 1 est mes la 2 a la place de la 1 puis un bouton retour qui me remet a la 1 a partir de la 2 merci a vous tous est bonne journée a tous

5 réponses

Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
12
salut,

si j'ai bien compris tu veux afficher alternativement scrollbox1 scrolbox2 en appuyant sur un bouton?

si c'est bien cela tu mets dans le OnClick du bouton:
procedure TForm1.Button1Click(Sender: TObject);
begin

  if ScrollBox1.Visible then

  begin

    ScrollBox1.Visible:=false;ScrollBox2.Visible:=true

  end else

  begin
    ScrollBox1.Visible:=true;ScrollBox2.Visible:=false

  end;

end;


@+

jlen
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
2
ScrollBox2.Visible:=ScrollBox1.Visible;

ScrollBox1.Visible:=not ScrollBox1.Visible;

Tout problème a sa solution... Mais en général, celle que l'on trouve n'est jamais la bonne...
Messages postés
69
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
17 septembre 2010

merci c est bient sa sa fonctionne tres bient merci a toi moi ges au mouin 3 ou 4 srcolbox c est pour sa que je veut mettre un bouton retour est suivant pour passer sur toute les scrollbox merci a toi est bonne journet
Messages postés
69
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
17 septembre 2010

est enfiates ennsuite passer de la 2 a la 3 puis insi de suite est passer de la 4 a la 3 ext.......
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,


où encore :


ScrollBox1.Visible := Not ScrollBox1.Visible;
ScrollBox2.Visible : = Not ScrollBox1.Visible;

@+
Cirec