Jusque là pas de problème, le composant fonctionne nickel chrome .
Ceci dit j'essaye de lire et enregistrer ce composant et ses propriétés dans un fichier. J'utilise donc les procédures suivantes
{>>Procédure pour sauvegarder un projet}
procedure Save_Project(DestFile:String;Components:Array Of TComponent);
Var
FS:TFileStream;
IndexElmt:Integer;
Begin
//On crée FS en mode création
FS:=TFileStream.Create(DestFile,fmCreate);
//On essaye
Try
//Pour tout les éléments du tableau
For IndexElmt:=Low(Components) To High(Components) Do
//D'enregistrer le composant correspondant
FS.WriteComponent(Components[IndexElmt]);
//Finalement
Finally
//On libere FS
FS.Free;
End;
End;
{>>Procédure pour ouvrir un projet}
procedure Open_Project(SourceFile:String;Components:Array Of TComponent);
Var
FS:TFileStream;
IndexElmt:Integer;
Begin
//On crée FS en mode lecture
FS:=TFileStream.Create(SourceFile,fmOpenRead);
//On essaye
Try
//Pour tout les éléments du tableau
For IndexElmt:=Low(Components) To High(Components) Do
//De lire le flux dans le composant correspondant
FS.ReadComponent(Components[IndexElmt]);
//Finalement
Finally
//On libere FS
FS.Free;
End;
End;
Ceci dit je rencontre un chtit problème l'utilisation de la fonction Open_Project conduit à une exception que je ne saisis pas :
La classe TTrackMixPn n'est pas trouvée.
Si quelqu'un a une idée du pourquoi je suis preneur
Salut Beckerich : Merci pour ta réponse mais non il s'agit bien de TracksMix . TracksMix est un TTracksMix qui est déclaré dans mon projet. A moins que j'ai rien compris aux procédures WriteComponent et ReadComponent