Discussion :

[xeak2008]

Bonjour,
Je cherche à savoir comment naviguer entre plusieurs onglets, mais à l'aide d'un bouton comme suivant pour passer à l'onglet suivant et précédent pour passer à l'onglet précédent.

Merci d'avance ;-)

[Linkin]

Sur un Page Control, en incrémentant ou décrémentant la propriété PageIndex il me semble.
(pas delphi sous la main aujourd'hui pour confirmer)

[Cl@udius]

pas delphi sous la main aujourd'hui pour confirmer

Presque: ActivePageIndex.

Un exemple de code pour passer à la page suivante:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with PageControl1 do
    ActivePageIndex := ActivePageIndex + 1;
end;

Ensuite il faut désactiver les boutons Suivant et Précedent suivant que tu es sur la 1° ou dernière page.

@+ Claudius

[xeak2008]

nickel merci beaucoup

[ero-sennin]

Salut,

Je rajouterai un petit test pour savoir si on est en début ou fin du PageControl :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.BtnSuivantClick(Sender: TObject);
begin
  if PageControl1.ActivePageIndex < PageControl1.PageCount-1 then
  begin
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex + 1;
  end;
end;
 
procedure TForm1.BtnPrecedentClick(Sender: TObject);
begin
  if PageControl1.ActivePageIndex > 0 then
  begin
    PageControl1.ActivePageIndex := PageControl1.ActivePageIndex - 1;
  end;
end;

Voilà

[Andnotor]

Si tu veux tenir compte des onglets visibles:

Code :

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

1
2
3
 
  with PageControl1 do
    ActivePage := FindNextPage(ActivePage, TRUE, TRUE);