Discussion :

[Djelangelo]

Bonjour,

j'ai créé deux composants :
L'un TGridGrafcethérité d'un TCustomGridPanel
L'autre TEtapeInitaile hérité d'un TGraphicControl

Mon composant TGridGrafcet appelle en dynamique le composant TEtapeInitiale.
J'enregistre les composant dans la palette grace à (je ne veux pas que TEtapeInitiale soit apparant dans la palette) :

Code :

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

1
2
3
4
 
RegisterClass(TEtapeInitiale);
RegisterComponentEditor(TGridGrafcet, TGridGrafcetEditor);
RegisterComponents('TestGrapf7', [TGridGrafcet]);

Quand je mets le composant sur un fiche tout se passe très bien mon TGridGrafcetavec le TEtapeInitiale s'affiche très bien.

Le problème est quand j'exécute ma fiche j'ai un exception m'indiquant que une EClassNotFound de mon TEtapeInitaile.

Avez vous une solution.

Merci

[Paul TOTH]

RegisterNoIcon()

[Djelangelo]

Merci.

J'ai essayé mais ca ne marche toujours pas.
Toujours cette satanée exception ou il ne trouve pas TEtapeInitiale

[ShaiLeTroll]

Enlève le

Code :

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

RegisterClass(TEtapeInitiale)

de ta fonction Register de ton DPK
Ajoute un

Code :

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

RegisterClass(TEtapeInitiale);

dans la section initialization de l'unité de TEtapeInitiale par exemple

Ce RegisterClass serait ainsi dispo pour le DPK et le DPR

Par contre "appelle en dynamique le composant TEtapeInitiale", c'est curieux, si tu fais une allocation dynamique, cela ne devrait pas poser de problème !
Ton objet TEtapeInitiale est-il stocké dans une DFM (propriété publiée de TGridGrafcet) ou récupérer par FindClass

[Djelangelo]

Merci, bon maintenant j'ai un problème de violation d'accès mais c'est autre chose.

Encore merci pour ton aide