Discussion :

[rvzip64]

Dans mon application je dispose de plusieur frame qui ont toutes la proprité name de type "Frame_1 ","Frame_2","Frame_3,"Frame_4".

Je voudrais pouvoir creer dynamiquement ma frame selon une valeur.
Actuellement je fais de cette manière :

Code :

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

1
2
3
4
5
6
7
 
case variable1 of
   1:  tab[loop]:=Tframe_1.create(self);
   2:  tab[loop]:=Tframe_2.create(self);
   3:  tab[loop]:=Tframe_3.create(self);
   4:  tab[loop]:=Tframe_4.create(self);
end;

tab étant un tableau d'objet.

Est ce qu il n'existerait pas un moyen plus simple du style

Code :

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

1
2
 
    tab[loop]:=Tframe_'+variable1+'.create(self);

Merci a tous.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
 ClassTypes : TClassList; // Uses Contnrs;
 ClasseInstance : TObject;
begin
 ClassTypes := TClassList.Create;
 ClassTypes.Add(TEdit);
 ClassTypes.Add(TMemo);
 ClasseInstance := ClassTypes[1].Create;
 ClassTypes.Free;
 ClasseInstance.Free;
end;

[rvzip64]

ok pas mal comme solution
et si maintenant je veux chercher dans ma liste ou ce situe une certaine classe comment dois je faire ?


par exemple :

Code :

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

1
2
 
   classtypes.IndexOf(Tframe_'+variable_1').

[tourlourou]

le problème est que tu ne peux pas chercher directement par le nom du type :

Code :

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

1
2
3
for i := 1 to  ClassTypes.Count
 do if ClassTypes[i-1].ClassName = 'Tframe_' + IntToStr(variable_1)
  then ShowMessage('c''est lui !');

[tourlourou]

cela dit, pour ton 1° exemple, il suffit de :

Code :

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

tab[loop] := ClassTypes[variable1-1].Create;

(si tu as le bon goût d'ajouter les items dans le bon ordre)

[rvzip64]

parfait .
Il me reste encore une question.

Avant pour accéder a un paramètre de ma frame je faisais

Code :

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

1
2
 
  (tab[loop] as T_frame_1).color:=clred;

Mais comment dois je faire maintenant ?

[tourlourou]

Code :

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

 with tab[loop] do color := clRed;

suffit si tu es sûr d'avoir dans le tableau un objet avec une propriété color

[rvzip64]

j ai fait un essai mais cela ne fonction qu avec les propriétés hérité du composant Tframe. Si je veux accéder a un label sur la frame cela ne fonctionne pas

Code :

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

1
2
 
with tab[loop] do label1.caption:='salut'

[tourlourou]

est-ce que ça n'interfère pas avec un label1 de ta fiche principale ?

Code :

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

with tab[loop] do label1.caption:='salut';

si tu as bcp d'init à faire sur le même objet, autant faire une fonction qui va créer l'objet (selon le type désiré), passer une référence typée (pas de pb de cast) à une procédure qui va faire les initialisations, et renvoyer la référence à l'objet créé

éventuellement, mets les paramètres à initialiser dans le Create()

[rvzip64]

non le label n interfere pas avec un label de la fiche principale. Tu aurais un tutoriel pour que je puisse comprendre les références typées ?