Anchors d'un Panel par code

**ero-sennin** · 22/06/2006, 13h16

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

**mike600river** · 22/06/2006, 13h35

bonjour,
si tu donnes les coordonnées de top et left apres les anchors, et eventuellement que tu fini par un form->repaint(); ça change qqchose?

ou en utilisant l'evenement OnResize peut etre

**ero-sennin** · 22/06/2006, 13h50

Effectivement, ma ligne de code était mal placée mais un autre problème s'ajoute c'est celui des dimensions des Panels! Tous panels se redimensionnent mais l'effet qui en résulte n'est pas celui que je pensé lol.

Le résultat que je souhaiterai obtenir c'est un Panel de la même dimension de départ mais qui se colle à la fenêtre en bas à gauche pour que je puisse utiliser tout l'espace restant

Si vous voyez un peut l'idée ... et si vous avez une autre solution, faites moi en part

EDIT :

J'ai trouvé d'où vient le problème concernant la dimension des panels. C'est en faite que le Panel s'étire (Panel->Top ne change pas). Je vais encore chercher pour voir comment obtenir le résultat que je veux !

**mike600river** · 22/06/2006, 13h57

si tu veux que les proprietes height et width garde la meme valeur (si g bien compris ce que tu veux), tu les garde dans 2 variables et quand tu redimensionne ta fenetre et place le panel en bas gauche tu precise aussi

Code :

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

1
2
panel1->height=VariableHeight;
panel1->width=VariableWidth;

**ero-sennin** · 22/06/2006, 14h16

Je n'y arrive pas

Le code que je vous ai donné plus haut est dans une procédure et donc la propriété de mes panels ne sont accessible que dans la procédure non? Ce que je ne comprends pas c'est que tous les autres propriétés (akRight,akLeft etc ... marche). Normalement, avec akBottom, c'est la position du Panel en Top qui change!? J'ai essayé de faire cela avec des boutons que j'ai créer via l'interface graphique (donc pas de création dynamique) et là, tout fonctionne ! Je ne comprends pas

Merci

**mike600river** · 22/06/2006, 14h25

une fois créés les panels devraient etre accessibles meme en dehors de la procedure, a moins que je me trompe mais il me semble avoir fait qqchose de ressemblant en delphi
par contre si les largeurs et hauteurs st stockées ds des variables, ces variables sont declarées dans le .h (du moins c'est ainsi que je fais dans mon application)

**Sunchaser** · 22/06/2006, 15h07

Salut,
N'est ce pas plutôt sur la Propriété Align du TPanel qu'il faut jouer...
par exemple la passer a 'alClient' ou 'alCustom' ...ou autre en fonction de l'effet recherché...?

**Sunchaser** · 22/06/2006, 15h10

De plus, si tu veut réaccéder facilement a tes TPanels crées dynamiquement, tu devrais peut être essayer de 't'inspirer' d'un bout de code comme celui posté y a pas tres longtemps :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
int haut = 5;
TPanel *pPanel[3];
for (int i = 0; i < 3; i ++)
{
pPanel[i] = new TPanel(Form7);
pPanel[i]->Parent = Form7;
pPanel[i]->Top = haut;
pPanel[i]->Left = 20;
//etc,etc....
haut = haut + pPanel[i]->Height;
}

@ +

**ero-sennin** · 22/06/2006, 15h10

Je ne sais pas comment accéder aux propriétés des panels que je créer dynamiquement hors de la procédure! C'est peut être simple mais c'est la première fois que je fais des créations de composants en dynamique! (Je trouve cela assez drôle d'ailleurs lol). Enfin ... Quand on veut accéder aux propriétés d'un composant que l'on crée graphiquement, c'est simple, on fait NameDuComposant -> SaPropriété mais là je ne sais pas comment faire. J'aimerai bien que l'on m'explique si quelqu'un sait comment faire (et si il se sent capable de le faire lol).

Merci de votre aide

**Sunchaser** · 22/06/2006, 15h18

Si tu connais le Name des tes objects :

Code :

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

1
2
3
4
5
6
 
void __fastcall TForm::ButtonClick(TObject *Sender)
{
TPanel *APanel = dynamic_cast < TPanel* > (Form7->FindComponent("PanelEssai2"));
APanel->Caption = "Essai réussi";
}

**ero-sennin** · 22/06/2006, 15h24

Pour la Propriété Align, non ce n'est pas ca, c'est bien sur la propriété Anchors . Ensuite, j'ai essayé ca :

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
27
28
29
30
31
32
void __fastcall TFMatch_En_Cours::CreerPalette()
{
int i,Nbre_Nature_Coup,bas;
   AnsiString Libelle_Nature_Coup;
   TQuery *Nb_Nature_Coup = new TQuery(this);
   bas=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;
     bas=bas-50;
     TPanel *Panel = new TPanel(this);
     Panel->Parent = this;
     //Panel->Anchors <<akLeft <<akBottom;
     Panel->Align << alClient;
     Panel->Left=100;
     Panel->Top=400;
     Panel->Width=100;
     Panel->Height=25;
     Panel->Name="P"+AnsiString(i);
     Panel->Caption=Libelle_Nature_Coup;
  }
}

pour voir ce que ca aller changer mais rien ne se passe

Je vais utiliser le code que tu as posté pour la création de panels, mais il faudrait que tu m'expliques comment accéder à mes panels hors de ma procédure car c'est nouveau ce que je fais et j'ai pas trouvé mon bonheur dans la FAQ ni sur le Forum (à moins que je n'ai mal cherché).

J'espère venir à bout de ce problème !
Merci

**ero-sennin** · 22/06/2006, 15h37

Si tu connais le Name des tes objects :
Code :

void __fastcall TForm::ButtonClick(TObject *Sender) { TPanel *APanel = dynamic_cast < TPanel* > (Form7->FindComponent("PanelEssai2")); APanel->Caption = "Essai réussi"; }

Le *APanel correspond dans mon cas à *Panel car dans mon cas j'ai fais
TPanel *Panel = new TPanel(this);

Ensuite,Form7->FindComponent("PanelEssai2") , je peux remplacer Form7 par this comme je suis sur que le Panel se trouve sur la même Form que le Bouton?

J'ai écris cela :

Code :

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

1
2
3
4
5
void __fastcall TFMatch_En_Cours::Button2Click(TObject *Sender)
{
  TPanel *Panel = dynamic_cast < TPanel* > (this->FindComponent("P3"));
  Panel->Caption = "Essai réussi";
}

Si j'ai bien compris, ce bout de code va vérifier dans la Form dans laquelle je me trouve si il y a bien un composant qui existe avec comme Propriété Name P3. Si il l'a trouvé, alors On modifie le Caption du Panel trouvé par Essai Réussi.

Merci pour ton aide Cantrelle

**Sunchaser** · 22/06/2006, 15h41

Par contre pour le coup du :

Code :

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

1
2
 
Panel->Name="P"+AnsiString(i);

dans la création de tes objets, j'aurai plutôt écris :

Code :

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

1
2
 
Panel->Name = AnsiString("P") + i;

....m'enfin....ou bien:

Code :

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

1
2
 
Panel->Name = "P" + IntToStr(i);

@ +

**ero-sennin** · 22/06/2006, 16h17

Merci Cantrelle, ton code pour la recherche de composant marche à merveille

.

Me reste juste à régler quelques détails avec les anchors mais bon, ca reste secondaire!

Je vais essayer d'avancer enfin un peu dans mon projet lol. Merci

**Sunchaser** · 22/06/2006, 17h12

?
(trop tard, lé parti...)

**ero-sennin** · 22/06/2006, 17h22

Je suis revenu lol Désolé j'avais oublié ...

lol

Anchors d'un Panel par code

C++Builder

Discussions similaires

Partager

Partager