Bonjour,

Je viens de créer dynamiquement des Panels et je souhaite maintenant éditer la propriété Anchors de chaqu'un d'entre eux (par ligne de code).

J'ai ce code :
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
18
19
20
21
22
23
24
25
26
int i,Nbre_Nature_Coup,haut;
   AnsiString Libelle_Nature_Coup;
   TQuery *Nb_Nature_Coup = new TQuery(this);
   haut=FMatch_En_Cours->ClientHeight;
   Nb_Nature_Coup->DatabaseName="Tennis";
   Nb_Nature_Coup->SQL->Clear();
   Nb_Nature_Coup->SQL->Add("Select count(idT_Nature_Coup) AS Nbre_Nature_Coup From t_nature_coup;");
   Nb_Nature_Coup->Active=true;
   Nbre_Nature_Coup=Nb_Nature_Coup->FieldByName("Nbre_Nature_Coup")->AsInteger;
   TQuery *Libelle_Nature = new TQuery(this);
   Libelle_Nature->DatabaseName="Tennis";
   for (i=Nbre_Nature_Coup;i>=1;i--)
  {
     Libelle_Nature->SQL->Clear();
     Libelle_Nature->SQL->Add("Select S_Libelle From t_nature_coup where idT_Nature_Coup="+AnsiString(i)+";");
     Libelle_Nature->Active=true;
     Libelle_Nature_Coup=Libelle_Nature->FieldByName("S_Libelle")->AsString;
     haut=haut-50;
     TPanel *Panel = new TPanel(this);
     Panel->Parent = this;
     Panel->Left=100;
     Panel->Top=haut;
     Panel->Caption=Libelle_Nature_Coup;
     Panel->Name=Libelle_Nature_Coup;
     Panel->Anchors <<akBottom <<akLeft;
  }
Ce code ne génère pas d'erreur cependant lorque je redimentionne ma fenêtre, mes panels restent ancrés par défaut en haut à gauche.
Pouvez-vous m'éclaircir sur ce point et m'expliquer comment faire (dans le forum j'ai cherché mais j'ai rien trouvé )

Merci