Discussion :

[bob1980]

Bonjour à tous,

Voila je me demandais si il était possible de gerer des composants de façon dynamique.

En fait je voudrais remplacer ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
if lmdcheckbox1.Checked then
begin
Canvas.TextOut(200,inc,lmdcheckbox1.Caption);
inc:=inc+100;
end;
if lmdcheckbox2.Checked then
begin
Canvas.TextOut(200,inc,lmdcheckbox2.Caption);
inc:=inc+100;
end;
.
.
.

par ça

Code :

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

1
2
3
4
5
6
7
8
 
 
For i:=1 to xx do
   if lmdcheckbox[xx].Checked then
     begin
       Canvas.TextOut(200,inc,lmdcheckbox[xx].Caption);
       inc:=inc+100;
     end;

Est-ce possible?
J'ai regardé dans la FAQ, la création dynamique semble ne pas convenir!!!

Merci d'avance pour votre aide.

[Rayek]

Tu peux aussi mettre un onclick commun à tous tes checkbox

Dans le OnClick tu mets :

Code :

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

1
2
3
4
5
6
7
8
 
 
if Sender is TCheckBox then
  if TCheckBox(Sender).Checked then
  begin
     Canvas.TextOut(200,inc,TCheckBox(Sender).Caption);
     inc:=inc+100;
  end;

[Bloon]

J'ai regardé dans la FAQ, la création dynamique semble ne pas convenir!!!

Merci d'avance pour votre aide.

Tu as mal regardé

http://delphi.developpez.com/faq/?pa...#findcomponent

Bloon

[LadyWasky]

Oui, c'est possible :
Souhaites tu les créer de façon dynamique ou non ?

Si non (le plus simple) :
- Celà signifie que tu les a placé à la main sur ta fiche.
- voici le "truc" :

1) tu déclares un tableau de TCheckBox (si c'est bien le type de classe que tu utilises) :
Soit en variable globale de ton unité :

Code :

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

var TabCheckBox:array of TCheckBox;

Soit dans la classe de ta fiche :

Code :

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

1
2
3
4
5
6
7
8
type
  TForm1 = class(TForm)
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    TabCheckBox:array of TCheckBox;
  end;

2) tu initialises ton tableau quelque part (dans le OnCreate de ta fiche par exemple) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var NbredeChekBox:integer;
...
NbredeChekBox:=5;
//notre tableau va être indicé de 0 à n-1 ==> n'oublie jamais qu'en Delphi, 
//il est rare de travailler avec des indices de 1 à n (voir ton code))
SetLength(TabCheckBox,NbredeChekBox);
TabCheckBox[0]:=lmdcheckbox1;
TabCheckBox[1]:=lmdcheckbox2;
...
TabCheckBox[4]:=lmdcheckbox5;

,
ou bien si tu en as vraiment beaucoup ,et qu'ils s'appellent tous lmdcheckboxxx :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
     NbredeChekBox:integer;
begin
  NbredeChekBox:=100; //si tu en as 100 bien sur...
  //On dimensionne notre tableau dynamique
  SetLength(TabCheckBox,NbredeChekBox);
  for i:=0 to NbredeChekBox-1 do
    TabCheckBox[i]:=Form1.FindComponent('lmdcheckbox'+IntToStr(i+1));
end;

On peu très bien pu utiliser un tableau statique aussi (pas besoin de faire SetLength) :

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
 
  ...
  public
    { Déclarations publiques }
    TabCheckBox:array[0..99] of TCheckBox;
  end;
...
procedure TForm1.FormCreate(Sender: TObject);
 var i:Integer;
      NbredeChekBox:integer;
 begin
  //on initialise notre tableau
   for i:=0 to 99 do
     TabCheckBox[i]:=Form1.FindComponent('lmdcheckbox'+IntToStr(i+1));
 end;

Si tu veux vraiment un tableau de 1 à n :

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
 
   ...
   public
    { Déclarations publiques }
     TabCheckBox:array[1..100] of TCheckBox;
  end;
 ...
 procedure TForm1.FormCreate(Sender: TObject);
  var i:Integer;
       NbredeChekBox:integer;
  begin
   //on initialise notre tableau
    for i:=1 to 100 do
      TabCheckBox[i]:=Form1.FindComponent('lmdcheckbox'+IntToStr(i));
  end;

3) utilisation (n'utilises pas inc comme variable, c'est une fonction Delphi, d'ailleurs, on va l'utiliser) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Form1.Affichage;
var posy:integer;
begin
  posy:=0;
  For i:=0 to xx-1 do
     if lmdcheckbox[i].Checked then
    begin
              Canvas.TextOut(200,posy,lmdcheckbox[i].Caption);
              inc(posy,100); //c'est kif-kif avec : posy:=posy+100;
   end;
end;

Voilà.

Sinon, si tu veux les créer dynamiquement, tu le dis.

[bob1980]

Salut à tous, c'est bon cela fonctionne.

J'ai fini par utiliser la methode utilisée dans la FAQ (merci Bloon, je n'avais identifié correctement le nom de cette méthode)

Merci également à Malatar et Waskol.

Ca va m'éviter de coder bien des lignes. C'est sympa

A+