Discussion :

[Colignon]

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.

[Jipété]

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 ?

Et tu veux les nommer comment ?

[Colignon]

Voici le code que j'utilise:

Code :

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

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.

[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...

[Colignon]

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 :

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

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

Salutations.