Discussion :

[cbegood]

Bonjour,

je veux créer des tabsheet sur une pagecontrol mais lors de la création le compilateur m'affiche une erreur et je ne vois pas d'ou elle peut venir.
Voici mon code et l'erreur:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TSpdTest2Eng.CreateTabSheet(Name: string);
begin
  With TTabSheet.Create(Self) Do Begin
    Parent := Self;
    PageControl := PageControl2;
    Name := 'TabSheet' + IntToStr(PageControl2.Tag);
    Caption := Name;
  End;
end;

Erreur:

Code :

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

First chance exception at $7C812A5B. Exception class EAccessViolation with message 'Access violation at address 0052C17E in module 'TrialManager.exe'. Read of address 000004D4'. Process TrialManager.exe (496)

cette erreur arrive a la ligne on j'assigne le PageControl à PageControl2.

Merci

[sat83]

le compilateur m'affiche une erreur

Est ce que c'est le compilateur qui affiche une erreur, ou une exception est générée?

Vérifie que PageControl2 est bien créée au moment ou tu l'affecte...

[dd_garion]

Bonjour,

Es-ce que ton PageControl2 est-il bien créé ?

[cbegood]

Oui il est bien créé car il est créé dans le design mode.
Et il s'agit d'une exception non pas a la compilation mais pendant l'exécution excusez moi.

[Akli f]

A mon avis, déja y'as une erreur du fait que tu appelle t'as procédure avec le mot réservé ''Name"

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TSpdTest2Eng.CreateTabSheet(Name: string);//ici
begin
  With TTabSheet.Create(Self) Do Begin
    Parent := Self;
    PageControl := PageControl2;
    Name := 'TabSheet' + IntToStr(PageControl2.Tag);
    Caption := Name;
  End;
end;

essaye ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TSpdTest2Eng.CreateTabSheet(nom: string);
begin
  With TTabSheet.Create(Self) Do Begin
    Parent := PageControl2;
    PageControl := PageControl2;
    Name := 'TabSheet' + IntToStr(PageControl2.Tag);
    Caption := nom;
  End;
end;

[cbegood]

Toujours le même problème

[Akli f]

l'erreur ne vient pas de ton code, tu appel comment ta procédure ?

[dd_garion]

Le code est opérationnelle, je l'ai testé (en delphi 6).

Pour moi, le problème vient du fait que l'objet PageControl2 n'existe pas ou pointe sur nil, doncPageControl2.tag provoque l'exception.

Peux-tu donner le code de création de ce dernier.

Ne fait tu pas, quelqe part dans ton code un truc du genre PageControl2 := nil; ???

[cbegood]

Ma PageControl2 existe bien donc ce n'est pas ça le problème elle est créée dans le mode design et je n'y touche jms a part par cette procédure.
Le problème viens peut être du fait que j'appelle cette procédure depuis une autre unité??

[Akli f]

Ne fait tu pas, quelqe part dans ton code un truc du genre PageControl2 := nil; ???

ou peut etre ton pagecontrol est invisible

[cbegood]

Mais non ... je ne touche jamais a mon pagecontrol2

[cbegood]

Veuillez accepter toutes mes excuses je m'était embrouillé dans les uses de mes units. La procédure est donc bien bonne mais je ne l'appliquais pas sur un composant existant.

Voilà ce qui arrive quand on est débutant et qu'on se perd dans ses fenêtre parcqu'on pas bien analysé le fonctionnement au préalable.
Je suis dsl