Discussion :

[cilies38]

Bonjour,

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

Code :

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

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

déclaration du tableau en variable global :

Code :

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

PanelP : array of Panel;

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

Code :

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

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..

[LadyWasky]

Salut,

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

Code :

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

MonObjet:=Type_de_MonObjet.Create();

et non pas comme ceci (surtout pas !) :

Code :

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

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 :

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

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

Tu devrais écrire :

Code :

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

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

[TicTacToe]

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

Code :

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

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 :

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

LPanels := TStringList.Create;

Bon courage !

[LadyWasky]

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 )

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

[cilies38]

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; ??

[cilies38]

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

[cilies38]

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

[cilies38]

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 ?????

[LadyWasky]

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 :

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

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

si on reprend le code de TicTacToe