Discussion :

[Djelangelo]

Bonjour,

C'est la première fois que j'utilise un TGridPanel et les aides sur ce composant est rare et celle d'embarcado plus qu'incomplète.

Comme dit dans le titre. Je cherche à ajouter dynamiquement un objet à un TGridPanel en lui indiquant dans qu'elle cellule je veut la mettre.

Quand on fait ca en direct sur une fiche, on ajoute un composant sur le TGridPanel, et Column et Row se rajoutent automatiquement à la liste des propriété, où l'on peut indiquer ou l'on veut placer le composant.

Mais comment le faire en dynamique???

[ShaiLeTroll]

Le GridPanel, je l'ai aussi découvert, il y a à peine 3 jours ... cela fait penser au Layout du Java avec un placement automatique des controls, cela peut être utile, cela évite des calculs (j'ai fait plein d'écran généré à la volée, c'est vrai que cela réduit nettement le code)

Tant que tu renseigne Parent du Control que tu veux insérer avec le GridPanel, cela va l'ajouter automatiquement (c'est vrai pas toujours terrible)
avec RowCollection et ColumCollection, je te conseille de mettre tous les SizeStyle en Auto !
Normalement c'est Auto par défaut, c'est les premières Column et Row déjà crééés qui sont en pourcentage !

Ensuite tu peux parcourir "ControlsCollection.ControlItems[x, y]" qui te fournis un TControlItem tu peux pouvoir modifier l'ordre des composants comme bon te semble !

EDIT : Désolé, je code en C++ en ce moment ! Je dois maintenir un Projet en C++, et j'oublie que je suis dans le forum Delphi ! !

Code c++ :

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
void __fastcall TMainForm::GridPanel1Click(TObject *Sender)
{
  TButton *Btn = new TButton(this);
  Btn->Parent = GridPanel1;
  Btn->Caption = IntToStr(GridPanel1->ControlCount) + " - " + FormatDateTime("NN:SS:ZZZ", Now());
  int i = GridPanel1->ControlCollection->IndexOf(Btn);
  TControlItem *CI = GridPanel1->ControlCollection->Items[i];
  TControlItem *CIBis = GridPanel1->ControlCollection->ControlItems[CI->Column][CI->Row];
  assert(CI == CIBis); // Juste pour montrer différent chemin d'accès au MÊME objets !
  TControl *BtnBis = GridPanel1->ControlCollection->Controls[CI->Column][CI->Row];
  assert(Btn == BtnBis);
 
  if (CIBis->Column < GridPanel1->ColumnCollection->Count)
  {
    CIBis->Column = CIBis->Column + 1; // On peut modifier l'Existant !
  }
 
  TButton *BtnTer = new TButton(this);
  BtnTer->Width = BtnTer->Width + 10;
  BtnTer->Parent = GridPanel1;
  BtnTer->Caption = IntToStr(GridPanel1->ControlCount) + " - " + FormatDateTime("NN:SS:ZZZ", Now()) + " T";
  GridPanel1->ControlCollection->AddControl(BtnTer);
 
  GridPanel1->Height = BtnTer->Height * GridPanel1->RowCollection->Count; // J'ai pas trouvé l'équivalent d'un AutoSize
}

[Djelangelo]

Merci de ta réponse t'es tout pardonné.

Par contre en utilisant :

Code :

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

TonGridPanel.ControlCollection.AddControl(TonObjet,indexCol,indexRow);

Tu peux placer directement ton objet ou tu veux