Gros bug dans l'utilisation de PageControl

Bonjour,
J'ai besoin de créer dynamiquement des PageControl mais quand je veux les nommer j'ai un message d'erreur : Project .... raised exception class 'external SIGFPE' in file 'laztracer.pas' at line 50: if......
Salutations.

Citation:

---

Envoyé par Colignon

J'ai besoin de créer dynamiquement des PageControl mais quand je veux les nommer j'ai un message d'erreur : Project .... raised exception class 'external SIGFPE' in file 'laztracer.pas' at line 50: if......

---

Et tu les crées comment ? :cristal:

Et tu veux les nommer comment ? :cristal: :cristal:

Voici le code que j'utilise:

Code:

---

1 2 3

pagecontrol1.AddTabSheet; {création d'un page} ap:=pagecontrol1.PageCount; {récupération du numéro de la page} pagecontrol1.Page[ap].Caption:='Vente'+inttostr(ap); {donner un nom à la page} // =>c'est cette ligne qui génère l'erreur.

---

Merci pour la réponse.
Salutations.

Bonsoir,
ap récupère le nombre de pages (PageCount) pas l'indice de la dernière page.
Si le tableau des pages est zero based, il faut utiliser PageCount-1...

Citation:

---

Envoyé par tourlourou

Bonsoir,
ap récupère le nombre de pages (PageCount) pas l'indice de la dernière page.
Si le tableau des pages est zero based, il faut utiliser PageCount-1...

---

C'était ça mon erreur ! Merci.
Voici le code modifié:

Code:

---

1 2 3 4

pagecontrol1.AddTabSheet; pagecontrol1.SelectNextPage(true); ap:=pagecontrol1.ActivePageIndex; pagecontrol1.Page[ap].Caption:='Vente '+inttostr(ap);

---

Salutations.