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