Onglet TPageControl [BCB6]

**Draner** · 18/07/2007, 09h23

Bonjour,
J’essai depuis un moment de faire en sorte que des informations s’affiche dans un StatusBar quand on clique sur un onglet. Il se trouve que si je met ce code la :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
 
void __fastcall TFiche1::FichePageControl1Change(TObject *Sender)
{
   Switch (FichePageControl1->ActivePage)
   {
      Case TabPresentation:
            //Indication dans le statusbar du bas
            FicheStatusBar1->Panels->Items[0]->Text = "Sélection.";
            FicheStatusBar1->Panels->Items[1]->Text = "Présentation.";
            FicheStatusBar1->Panels->Items[2]->Text = "";
            Break;
 
      Case TabResistance:
            //Indication dans le statusbar du bas
            FicheStatusBar1->Panels->Items[0]->Text = "Sélection.";
            FicheStatusBar1->Panels->Items[1]->Text = "Résistance.";
            FicheStatusBar1->Panels->Items[2]->Text = "";
            Break;
 
      Case TabTransistor:
            //Indication dans le statusbar du bas
            FicheStatusBar1->Panels->Items[0]->Text = "Sélection.";
            FicheStatusBar1->Panels->Items[1]->Text = "Transistor.";
            FicheStatusBar1->Panels->Items[2]->Text = "";
            Break;
 
   }
}