Tableaux dynamique d'objets

Bonjour,

J'essaye d'utiliser un tableau de panel de cette façon

Code:

---

1 2 3

Panel=class(TJvBevel) Constructor Create(AOwner: TComponent);override; end;

---

déclaration du tableau en variable global :

Code:

---

PanelP : array of Panel;

---

j'essaye quelquechose de ce genre sa passe à la compilation mais pas à l'éxécution (classe d'Exception EAcessViolation) :

Code:

---

1 2 3 4 5 6

procedure TForm4.FormCreate(Sender: TObject); begin PanelP[0]:=Panel.create(Self); DrawTheme(PanelP[0]); end;

---

ce que j'essaye de faire c'est de créer dynamiquement des panels et dans drawtheme j'affecte à chaque panel 8 (au plus) objet Tshape dès que j'en ai 8 je crée un nouveau panel ce qui me permettra après grace au tableau d'afficher le panel que je veux.

J'espere que c'est clair merci d'avance..

Salut,

Pour creer un Objet, quel qu'il soit, il faut le créer comme ceci :

Code:

---

MonObjet:=Type_de_MonObjet.Create();

---

et non pas comme ceci (surtout pas !) :

Code:

---

MonObjet:=MonObjet.Create();

---

bref tu peux appeler la méthode du type (le constructeur) lorsque ton objet n'existe pas encore, mais rien d'autre.
En effet lorsque tu fais
Panel.Create(self), Panel n'existe pas encore, donc la méthode qui y est rattachée non plus.

Autrement dit, au lieu de :

Code:

---

1 2 3 4 5

procedure TForm4.FormCreate(Sender: TObject); begin PanelP[0]:=Panel.create(Self); DrawTheme(PanelP[0]); end;

---

Tu devrais écrire :

Code:

---

1 2 3 4 5

procedure TForm4.FormCreate(Sender: TObject); begin PanelP[0]:=TPanel.create(Self); //<-- TPanel au lieu de Panel DrawTheme(PanelP[0]); end;

---

Bon dev :wink:

Tu peux utiliser une TStringList de cette manière, en gros

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

var LPanels: TStringList; MonPanel: TPanel;   begin for i := 0 to Nb do begin MonPanel := TPanel.Create( Self ); MonPanel.Parent := TonConteneur (qui peut être la form) MonPanel.Name := 'PanelN°' + xxx; MonPanel.Caption := 'Un Panel'; MonPanel.Left/Right/Width/Height := ... LPanels.AddObject( MonPanel.Name, MonPanel ); end; // Pour le récupérer, rechercher dans la liste position xxx MonPanel := TPanel( LPanels.Objects[ Index ] ); end;

---

EDIT:
j'ai oublié, allouer ta liste avant tout ca:

Code:

---

LPanels := TStringList.Create;

---

Bon courage !

Sinon, tu peux aussi te créer un TPanelList avec l'utilitaire (un générateur de listes de toute sorte : TIntegerList, TPointList, TFontList, TListList, la liste n'est pas exhaustive) que j'ai mis hier sur mon site perso (servez vous, c'est gratos :mrgreen: )

là ---> http://waskol.developpez.com

merci,

je suis en train de tester si ça marche mais comment je concatène un string et un compteur de type integer?

Panel.name:='Panel'+cpt; ??

même avec ListPanel ça ne marche pas même exception Eaccessviolation
je vais essayer le générateur de liste mais c'est bizzare que ça fonctionne pas

autant pour moi ca marche j'avais oublie d'initialiser la liste dsl :)
sinon je peux concaténer une chaine de caractère avec compteur de type Integer

je pense que ça marche mais il faut que je concactene un string et un integer pour avoir des noms différents mais j'y arrive pas svp comment on fait ?????

Tu ne peux pas concaténer un string et un integer, par contre un string et un string oui. tu es d'accord ?

Donc il faut que
1) tu transformes ton integer en string.
2) tu concatènes ta première string avec celle que tu viens d'obtenir

La fonction qui fait l'étape 1), c'est IntToStr(UnEntier:integer):string

A partir de là ça te donne :

Code:

---

MonPanel.Name := 'PanelN°' + inttostr(i);

---

si on reprend le code de TicTacToe :wink: